Problema con ComboBox

[*Caro*]

Hola grotero76, la verdad ni me había dado cuenta que eso pasaba, al parecer solo pasa la primera vez, lo que se me ocurre es buscar el Indice en el evento OnExit del ComboBox y actualizarlo ademas de tener una banderita para que ese codigo se ejecute solo una vez. Seguro que a alguien se le ocurrira algo mejor.

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
 Flg:=0;
end;

procedure TForm1.ComboBox1Exit(Sender: TObject);
var
 Ind : Integer;
begin
 if Flg= 0 then
  begin
   Ind:=ComboBox1.Items.IndexOf(ComboBox1.Text);
   ComboBox1.ItemIndex := Ind;
   Flg:=1;
  end;
end;

Saluditos