Программа с Record и ColorBox.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    ColorBox1: TColorBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure ColorBox1Change(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
 type
  TQuadrat = record
    PosX: Integer;
    PosY: Integer;
    Quad: TRect;
    procedure Draw(w,h: Integer);
  end;
var
  Form1: TForm1;
  Quadrat: TQuadrat;
implementation
 
uses Types;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Quadrat.PosX := StrToInt(Edit1.Text);
  Quadrat.PosY := StrToInt(Edit2.Text) + Panel1.Height;
  Quadrat.Draw(StrToInt(Edit3.Text), StrToInt(Edit4.Text));
end;
 
procedure TForm1.ColorBox1Change(Sender: TObject);
begin
    Form1.Canvas.Pen.Color := Form1.ColorBox1.Selected;
    Form1.Canvas.Brush.Color := Form1.ColorBox1.Selected;
    Form1.Canvas.FillRect(Quadrat.Quad);
end;
 
procedure TQuadrat.Draw(w, h: Integer);
begin
  Form1.Repaint;
  Quad.Left := PosX;
  Quad.Top := PosY;
  Quad.Right := PosX + w;
  Quad.Bottom := PosY + h;
  Form1.Canvas.MoveTo(Quad.Left, Quad.Top);
  Form1.Canvas.LineTo(Quad.Right, Quad.Top);
  Form1.Canvas.LineTo(Quad.Right, Quad.Bottom);
  Form1.Canvas.LineTo(Quad.Left, Quad.Bottom);
  Form1.Canvas.LineTo(Quad.Left, Quad.Top);      
end;
 
end.