Rechteck wird nicht angezeigt!

[himitsu]

Du hast auch noch vergessen das Bitmap wieder freizugeben.

Wenn du im OnCreate schon zeichnen willst/mußt, dann zeichne in ein TImage,
ansonsten kannst du im OnPaint direkt auf die Form oder auf eine TPaintBox zeichnen.

Wenn das Bild erhalten bleiben soll, z.B. wenn die Form neu gereichnet werden mußte (z.B. nachdem eine andere Form davor lag), dann auf ein Offscreen-Bitmap zeichnen, welches im OnPaint erneut ausgegeben wird, oder eben in ein TImage.