procedure TForm1.FormShow(Sender: TObject);
begin
if FileExists('C:\DATOSCOMBO.TXT') then
ComboBox1.Items.LoadFromFile('C:\DATOSCOMBO.TXT')
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.Items.Add(Edit1.Text)
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ComboBox1.Items.SaveToFile('C:\DATOSCOMBO.TXT')
end;