Combobox editieren verhindern

[R2009]

Hi,

wir nutzen Comboboxen um bestimmte vorgegebene Eingaben realisieren zu können.
Läuft auch alles, bis ein Kunde (die stören doch eh nur den internen Ablauf) in das Textfeld seinen eigenen Senf eingetragen hat.

Meine Frage:
Wie kann ich verhindern, dass im Textfeld "herumeditiert" wird.
Im ersten Ansatz sieht das einfach aus... aber nach ein bisschen nachdenken.

Delphi-Quellcode:

procedure check_combo(t:Tobject);
var n:integer;e:boolean;
begin
  e:=false;
  For n:=1 to (t as tcombobox).items.count-1 do
    begin
      if (t as tcombobox).items.Strings[n]=(t as tcombobox).text then e:=true;
    end;
  if e=true then exit else (t as tcombobox).text:='';
end;

Wollte ich eigentlich in onchange einbinden.
Was meint ihr dazu kann man das eleganter lösen?
Grüsse
rainer