[TEKTON]

Может есть компонент который выглядит как обычный Label но при клике на нём, что б выпадал список как в ComboBox?

Вопрос № 2 как у Edit убрать рамку и фон (ну или задать нужный цвет), что б остался Edit.Text только виден и возможность вводить текст при клике.

Может есть уже готовые компоненты такие ?
Если нету, то как можно такое реализовать?

Вот набросал немного код что мне надо.
Работает, но выглядит корявенько.

Код:

procedure TForm1.Label1Click(Sender: TObject);
begin
listbox1.Visible:=true;
end;


procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Label1.Caption:=Listbox1.Items.Strings[ListBox1.ItemIndex];
listbox1.Hide;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Listbox1.Visible:=false;
end;

Спасибо.