Sterowanie wielkością formy (nie głownej)

Mam pytanko odnośnie poniższej konstrukcji. To co przedstawiłem jest proste co prawda. Nie wprowadzałem

dodatkowych udziwnień, bo wiadomo ze szerokość moze być zależna od tego co "może być" na formie.
Szerokość w rozumieniu - ta którą uzyskuje poprzez zastosowanie pętli.
Czy mozna tą 'konstrukcję' przedstawić jeszcze prościej? :)

Mniej więcej:
Forma -> Width:460, Height:460
Button --> gdzieś tam blisko lewej krawędzi.

Zaznaczam ze jestem nowicjusz od 3 tygodni - więc czasami moge coś namieszać :))

procedure TForm2.FormCreate(Sender: TObject);
begin
Form1.ClientWidth:= 350;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;

begin
if form1.ClientWidth=350 then

       begin
           button1.Caption:= '';
                  Form1.ClientWidth:=form1.ClientWidth-1;
               end;

end;

Thx
[cya]

Procedure TForm1.Button1Click(Sender: TObject);
Var I:Integer;
Begin
If Form1.ClientWidth=350 Then
Begin
Button1.Caption:= '';
Form1.ClientWidth:= Form1.ClientWidth-100;
End;
End;