...
implementation
const
INCRE = 100;
var
OldCorn: TRect;
FirstSz: Boolean = True;
procedure TForm1.FormCreate(Sender: TObject);
begin
OldCorn.Left := Left;
OldCorn.Top := Top;
OldCorn.Right := Left + Width;
OldCorn.Bottom := Top + Height;
Button1.Anchors := [akRight,akBottom];
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if FirstSz then
begin
Left := Left - INCRE;
Top := Top - INCRE;
Width := Width + INCRE;
Height := Height + INCRE;
end
else
begin
Left := OldCorn.Left;
Top := OldCorn.Top;
Width := OldCorn.Right - Left;
Height := OldCorn.Bottom - Top;
end;
FirstSz := not FirstSz;
end;
...