Собственно вот
...
var
Form1: TForm1;
SizeY, SizeX: string;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
RegFile: TRegINIFile;
begin
RegFile := TRegINIFile.Create('Software');
RegFile.OpenKey('Project1', True);
SizeY := RegFile.ReadString('Size', 'Height', '0');
SizeX := RegFile.ReadString('Size', 'Width', '0');
RegFile.Free;
Caption := SizeY + '/' + SizeX;
ClientHeight := StrToInt(SizeY);
ClientWidth := StrToInt(SizeX);
end;
procedure TForm1.FormResize(Sender: TObject);
begin
SizeY := IntToStr(ClientHeight);
SizeX := IntToStr(ClientWidth);
Label1.Caption := SizeY + '/' + SizeX;
end;
procedure TForm1.BExitClick(Sender: TObject);
var
RegFile: TRegINIFile;
begin
RegFile := TRegINIFile.Create('Software');
RegFile.OpenKey('Project1', True);
RegFile.WriteString('Size', 'Height', SizeY);
RegFile.WriteString('Size', 'Width', SizeX);
RegFile.Free;
Application.Terminate;
end;
...
Хоть убейся, но ширина постоянно 266
P.S. Ширина 266 выставлена поумолчанию при создании формы (Properties Формы).
Всему виной было событие OnResize. Без него всё стало нормально.