combobox + Uppercase

[schniede]

Hab es nun doch hinbekommen nur leider nicht während der Eingabe.
Vieleicht hat einer ne andere Idee?

Code:

function FU(s : string) : string; forward;

function FU(s : string) : string;
begin
Result := AnsiUpperCase(copy(s,1,1)) + copy(s, 2, length(s));
end;

procedure TForm1.BitBtn18Click(Sender: TObject);

begin
combobox8.Text:=fu(combobox8.Text);
combobox8.Items.add(combobox8.Text);
doppelpruefen_loeschen;
end;

procedure TForm1.doppelpruefen_loeschen;
var
  a,b : integer;
begin
  a := 0;
  while a <= ComboBox8.Items.count - 2 do
  begin
    for b := a + 1 to ComboBox8.Items.count - 1 do
    begin
      if ComboBox8.Items[a] = ComboBox8.Items[b] then
      begin
        dec(a);
        ComboBox8.Items.delete(b);
        break;
      end;
    end;
    inc(a);
  end;

end;

GeorgeWNewbie ,danke nur leider schreibt meine Eingabe in der Box damit Rückwäts.
obwohl mir das so sehr gut gefallen würde.