Handel-Zeichnen

[theomega]

Hallo
warum geht dieser Code nicht?

Code:

procedure TForm1.Button1Click(Sender: TObject);
var hd:HDC;
Brush: HBRUSH;
Pen: HPEN;
hd2:HDC;
begin
Brush := CreateSolidBrush(RGB(255,0,0));
SelectObject(hd, Brush);
Pen := CreatePen(PS_SOLID, 3, RGB(75,0,255));
SelectObject(hd, Pen);
Rectangle(hd, 10, 10, 375, 100);


hd2 := getdc(0);
BitBlt(hd2,20,20,50,50,hd,0,0,SRCCOPY );
end;

es sollte eingetlich in der linken oberen ecke ein Rechteck erscheinen. Das ganze ist als Beispiel gedacht, deshalb auch die Aktion mit dem BitBlt!

Danke

TO