Editfeld mit automatischer Listbox

[City Light]

Ich hab da mal was probiert..

Code:

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ListBox1.Visible := True;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  Edit1.Text := ListBox1.Items.Strings[ListBox1.ItemIndex];
  ListBox1.Visible := False;
end;

Ich hoffe ich konnte dir helfen?

MFG