Прямоугольник, пульсирующий случайным образом в диапазоне от минимальной до максимальной длины диагонали

unit Unit4;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls, Math;
 
type
  TForm4 = class(TForm)
    GroupBox1: TGroupBox;
    LEdit1: TEdit;
    LabelDS: TLabel;
    ButtonMove: TButton;
    TrackBarSpeed: TTrackBar;
    LabelSpeed: TLabel;
    Label1: TLabel;
    Timer1: TTimer;
    Label2: TLabel;
    LEdit2: TEdit;
 
 
   procedure ButtonMoveClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
      procedure FormResize(Sender: TObject);
        procedure LEdit1KeyPress(Sender: TObject; var Key: Char);
           procedure Timer1Timer(Sender: TObject);
            procedure TrackBarSpeedChange(Sender: TObject);
 
 
 
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form4: TForm4;
 
implementation
 
{$R *.dfm}
var
RadCircle, CenterX, CenterY, PointX, PointY, RadPoint, XMin, XMax, YMin, YMax, X, Y: integer;
Angle, StepPoint: real;
PointColor: TColor;
 
 
procedure TForm4.ButtonMoveClick(Sender: TObject);
 begin
 if Timer1.Enabled then
  begin
    ButtonMove.Caption:='Запустить';
    LEdit1.Enabled:=true;
    LEdit2.Enabled:=true;
  end
  else
  begin
      if (Trim(LEdit1.Text)='') or (Trim(LEdit2.Text)='') then
   begin
    ShowMessage('Введите все данные!');
    LEdit2.SetFocus;
    Exit;
   end;
   if strtofloat(LEdit1.Text)<=5 then
   begin
     ShowMessage('Введите другое значение');
     LEdit1.SetFocus;
     Exit;
   end;
 
    XMin:=StrToInt(LEdit1.Text);
    XMax:=StrToInt(LEdit2.Text);
    X:=RandomRange(XMin,XMax);
     Y:=X-5;
    if (XMax>=Form4.Width div 2) or (XMax>=(Form4.Height-GroupBox1.Height) div 2) then
   begin
    ShowMessage('Квадрат не влезает в окно! Введите другую сторону.');
    LEdit2.SetFocus;
    Exit;
   end;
    LEdit1.Enabled:=false;
    LEdit2.Enabled:=false;
    ButtonMove.Caption:='Остановить';
  end;
  Timer1.Enabled:=not Timer1.Enabled;
end;
 
procedure TForm4.FormCreate(Sender: TObject);
begin
  randomize;
  CenterX:=Form4.Width div 2;
  CenterY:=(Form4.Height-GroupBox1.Height) div 2;
  PointColor:=clBlue;
  Canvas.Pen.Color:=PointColor;
 
end;
 
procedure TForm4.FormResize(Sender: TObject);
begin
  CenterX:=Form4.Width div 2;
  CenterY:=(Form4.Height-GroupBox1.Height) div 2;
end;
 
 
 
procedure TForm4.LEdit1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key in['0'..'9',chr(VK_BACK)]=False then Key:=#0;
end;
 
procedure TForm4.Timer1Timer(Sender: TObject);
begin
  Canvas.Pen.Color:=Form4.Color;
  Canvas.Rectangle(CenterX-X,CenterY-Y,CenterX+X,CenterY+Y);
  X:=RandomRange(XMin,XMax);
  Y:=X-5;
  Canvas.Pen.Color:=clBlue;
  Canvas.Rectangle(CenterX-X,CenterY-Y,CenterX+X,CenterY+Y);
end;
 
procedure TForm4.TrackBarSpeedChange(Sender: TObject);
begin
  Timer1.Interval:=Trunc(1000/TrackBarSpeed.Position);
  LabelSpeed.Caption:=IntToStr(TrackBarSpeed.Position);
end;
 
end.

procedure TForm4.Timer1Timer(Sender: TObject);
begin
  Canvas.Pen.Color:=Form4.Color;
  Canvas.Rectangle(CenterX-X,CenterY-Y,CenterX+X,CenterY+Y);
  X:=RandomRange(XMin,XMax);
  Y:=RandomRange(XMin,XMax);
  Canvas.Pen.Color:=clBlue;
  Canvas.Rectangle(CenterX-X,CenterY-Y,CenterX+X,CenterY+Y);
end;

TForm1=class(TForm)
..
  shape1:TShape;
end;
 
function GetRectInflate:integer;
begin
  result := round(10 * sin(getTickCount/100) );
end;
 
procedure TForm1.Timer1Timer(Sender:TObject);
var d:integer;
begin
  d:=GetRectInflate();  
  shape1.width := 100 + 2*d;
  shape1.height := 50 + 2*d;
  shape1.left := width div 2 - shape1.width div 2;
  shape1.top := height div 2 - shape1.height div 2;
end;