Hola.
Mirando el código anterior, que hice al vuelo y sin mucha prueba
![Embarrassment](http://www.clubdelphi.com/foros/images/smilies/redface.gif)
, veo que se le puede hacer una mejora significativa:
Código Delphi
[-]
procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
with ComboBox1 do
begin
if Items.IndexOf(Text) = - 1 then
begin
Items.Add(ComboBox1.Text);
Items.SaveToFile(HISTORIAL);
end;
end;
end;
De este modo se evita el guardado de ítems duplicados y por consiguiente el crecimiento innecesario del archivo de texto.
Saludos
![Smilie](http://www.clubdelphi.com/foros/images/smilies/smile.gif)