Rozmiar formy

Witam. Poczebuje zrobic cos takiego, zeby przy rozszezeniu jednego boku formy drugi rozszezal sie o taka sama wielkosc automatycznie???
Tzn. jak rozciagam jeden bok to drugi tesh sie rozciaga...

Np. tak:

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
if Width=NewWidth then NewWidth:=Round((NewHeight/Height)*Width)
{jesli zmieniona tylko wysokosc, dopasuj szerokosc do zmiany wysokosci}
else
NewHeight:=Round((NewWidth/Width)*Height);
{jesli zmieniona tylko wysokosc lub obie, dopasuj wysokosc}
end;