Autocompletion bei DBEdit ?

[inherited]

So zb: (Ohne garantie auf fehler is jez mal so hingetippt

Delphi-Quellcode:

procedure TForm8.Edit1Change(Sender: TObject);
var i, OldLength: Integer;
begin
  if Edit1.Text='' then exit;
  for i := 0 to Liste.Count-1 do
  begin
    if copy(Liste.Items[i], 1, Length(Edit1.Text))=Edit1.Text then
    begin
      OldLength:=Length(Edit1.Text);
      Edit1.Text:=Liste.Items[i];
      Edit1.SelStart:=OldLength;
      Edit1.SelLength:=Length(Edit1.Text);
      exit;
    end;
  end;
end;

*nachcodelibmanagernschrei*