Керування властивостями форми в Лазарус

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('Доброго дня, добродію');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Width:=400;
form1.Height:=400;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
form1.Width:=300;
form1.Height:=300;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
form1.Color:=$00B0FEA5;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
form1.Color:=clRed;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
if random() < 0.5 then
begin  ;
form1.Color:=clRed;
end
else
begin  ;
form1.Color:=$00B0FEA5;
end  ;
end;

Коли випадкове число менше 0,5 – форма червона, більше – майже зелена.

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
form1.Width:= TrackBar1.Position + 300;
form1.Height:=TrackBar1.Position + 300;
end;