procedure TForm1.FormClick(Sender: TObject);
var
Archivo: string;
begin
Archivo := ExtracFilePath(Application.ExeName) + 'Fichero.Ini';
MiFicheroIni := TIniFile.Create(Archivo);
try
Form1.Left := MiFicheroIni.ReadInteger('Form', 'Left', 0);
Form1.Top := MiFicheroIni.ReadInteger('Form', 'Top', 0);
Form1.Caption := MiFicheroIni.ReadStribg('Form', 'Caption', 'Sin Título')
finally
MiFicheroIni.Free
end
end;