canvas geht bei on show nicht

[ferby]

Hallo,

Ich möchte das bevor man das Formular sieht etwas gezeichnet wird,
ich habe es schon mit oncreat und onshow probiert, aber es tut sich nichts, an was kann das liegen?

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
  paint.Canvas.Pen.Color := clred;
  paint.Canvas.Rectangle(0, 0, 300, 300);
end;

wenn ich den quelltext bei einen buttonklick auslöse dann gehts......