Rechteck wird nicht angezeigt!

[hannibal]

Hallo,

ich will einfach ein Rechteck auf meiner Form zeichnen aber irgendwie klappt das nicht folgenden Code hab ich geschrieben:

Code:

procedure TMainForm.FormCreate(Sender: TObject);
var
  pic : TBitmap;
begin
  pic := TBitmap.Create;
  pic.Height := 100;
  pic.Width := 100;
  pic.Canvas.Brush.Color := clRed;
  pic.Canvas.FillRect(Rect(0, 0, pic.Width, pic.Height));
  MainForm.Canvas.Draw(0, (MainForm.Width div 2) - (MainForm.Height div 2), pic);
end

Ich bin leider noch ziemlich unerfahren mit Delphi, hoffe Ihr könnt mir weiterhelfen!
Danke in voraus!

mfg hannibal