procedure WMPaint(var msg: TMessage); message WM_PAINT;
Ebben az eljárásban csak meg kell hívnunk a függvényt a Form canvas-ának leírójával:
procedure TForm1.WMPaint;
begin
PaintDesktop(Canvas.Handle);
end;
Ha nem akarjuk, hogy a kirajzolás közben a kép "villogjon", akkor a Form DoubleBuffered property-jét állítsuk True-ra!
procedure TForm1.FormCreate(Sender: TObject);
begin
DoubleBuffered:=TRUE;
end;