Editfeld mit automatischer Listbox

[City Light]

Mit der Tastatur würde es dann so gehen...

Code:

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  ListBox1.Visible := True;
end;

Gruß
City Light