Вставка на форму последних введенных значений в Combobox и Edit из txt файла

unit Unit1;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
 
type
TForm1 = class(TForm)
Label1: TLabel;
DateTimePicker1: TDateTimePicker;
Label2: TLabel;
Label3: TLabel;
DateTimePicker2: TDateTimePicker;
Label4: TLabel;
ComboBox1: TComboBox;
Label5: TLabel;
ComboBox2: TComboBox;
Label6: TLabel;
Edit1: TEdit;
CheckBox1: TCheckBox;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form1: TForm1;
tb_ogt, etap, izd, vse_izd, podrazdelenie, etapvyp, buttons, data1, data2, sql1: string;
List: Tstringlist;
W1,W2: string;
//vse_izd: integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.ComboBox1Change(Sender: TObject);
 
Var
i,j:Integer;
begin
for i :=0 to List.Count-1 do
begin
if Pos('ComboBox1',List[i])=1 then
begin
ShowMessage('pos');
List[i]:=StringReplace(List[i],W1, IntToStr(ComboBox1.ItemIndex+1),[rfReplaceAll, rfIgnoreCase]);
end;
end;
 
List.SaveToFile('text12.txt');
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
 
i,j: integer;
begin
 
 
List :=TStringList.Create;
List.LoadFromFile('text12.txt');
for i :=0 to List.Count-1 do
begin
if Pos('ComboBox1',List[i])=1 then
ShowMessage('pos');
begin
 
for j:=i-4 to i-1 do
begin
ComboBox1.Items.Add(Copy(List[j],1,4));
end;
W1:= Copy(List[i],4,1) ;
ComboBox1.text:= ComboBox1.Items[StrToInt(W1)-1];
end;
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
aCopyData: TCopyDataStruct;
 
f:textfile;
begin
assignfile(f,'text12.txt');
//if not fileexists('text12.txt') then rewrite(f);
//else append(f);
rewrite(f);
append(f);
writeln(f,datetostr(DateTimePicker1.Date)+#13#10+datetostr(DateTimePicker2.Date) +#13#10+Combobox1.Text+#13#10+Combobox2.Text+#13#10+Edit1.Text);
closefile(f);