ComboBox Fehler?

[thomasvonmuenster1]

Wenn ich einen Eintrag in die ComboBox1 mache wird sie blau!
Aber im Hintergrund lauf alles prima weiter.
Wie kann ich es verhindern das sie blau wird?
Noch eine Frage! die eintäge verdoppeln sich. Es stehen aufeinmal zwei die gleichen suchbegriffe drin. Hat einer von euch einen Rat für mich!

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
timer3.Enabled:=false;
timer3.Enabled:=true;
end;

Delphi-Quellcode:

procedure TForm1.Timer3Timer(Sender: TObject);
begin
timer3.Enabled:=false;
IBQuery5.SQL.Text:='select suchbegriffe from tabelle1 where suchbegriffe like ''%'+ComboBox1.Text+'%''order by suchbegriffe';
IBQuery5.Open;

while IBQuery5.Eof=false
do begin
  ComboBox1.Items.Add(IBQuery5.FieldByName('suchbegriffe').AsString);
  IBQuery5.Next;
end;
label2.caption:= 'Treffer '+IntToStr(IBQuery5.recordcount);
end;