[cadil]

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

Код:

procedure TForm6.FormCreate(Sender: TObject);
var
  Ini: TIniFile;
begin
  Ini:= TIniFile.Create(ExtractFilePath(ParamStr(0))+'log.ini');
  Edit1.Text:= Ini.ReadString('data', 'Edit1_Text', '');
  TrackBar1.Position:= Ini.ReadInteger('data', 'TrackBar1_Position', 0);
 end;

procedure TForm6.FormDestroy(Sender: TObject);
var
  Ini: TIniFile;
 begin
  Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'log.ini');
  Ini.WriteString('data', 'Edit1_Text', Edit1.Text);
  Ini.WriteInteger('data', 'TrackBar1_Position',  TrackBar1.Position);
  Ini.Free;
end;

Не проверял, но должно работать.

Спасибо! Работает.