Ч чём ошибка моего кода сохранения и загрузки?

[AngelOfDeath]

Вот код сохранения

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
f:=TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'program.ini');
F.WriteInteger('Timer1','Caption',Timer1.Interval);
F.WriteInteger('Timer2','Caption',Timer2.Interval);
F.WriteInteger('Timer3','Caption',Timer3.Interval);
end;

Вот код загрузки

procedure TForm1.FormCreate(Sender: TObject);
begin
F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'program.ini')  ;
F.ReadInteger('Timer1','Caption',Timer1.Interval);
F.ReadInteger('Timer2','Caption',Timer2.Interval);
F.ReadInteger('Timer3','Caption',Timer3.Interval) ;
TimerOn.Click;

end;

И всё равно при загрузке скорость таймеров меняется на 150
А соханяется номально

[Stilet]

Опять теже грабли:

procedure TForm1.FormCreate(Sender: TObject);   
begin   
F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'program.ini')  ;   
Timer1.Interval:=F.ReadInteger('Timer1','Caption',100);   
Timer2.Interval:=F.ReadInteger('Timer2','Caption',100);   
Timer3.Interval:=F.ReadInteger('Timer3','Caption',100) ;   
TimerOn.Click;   
  
end;

Яснышко?

[AngelOfDeath]

Сообщение от Stilet

Опять теже грабли:

procedure TForm1.FormCreate(Sender: TObject);   
begin   
F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'program.ini')  ;   
Timer1.Interval:=F.ReadInteger('Timer1','Caption',100);   
Timer2.Interval:=F.ReadInteger('Timer2','Caption',100);   
Timer3.Interval:=F.ReadInteger('Timer3','Caption',100) ;   
TimerOn.Click;   
  
end;

Яснышко?

Спасибо за помощь

[AngelOfDeath]

Тему можно закрыть