[lmikle]

На:

Код:

procedure TForm1.FormPaint(Sender: TObject);
var
  C : TCanvas;
  H : THandle;
  R : TRect;
begin
  C := TCanvas.Create;
  H := GetDesktopWindow;
  C.Handle := GetWindowDC(H);
  R := Rect(0,0,Screen.Width,Screen.Height);
  If H <> 0 Then GetWindowRect(H,R);
  Self.Canvas.CopyRect(Rect(0,0,Width,Height),C,Rect(Left,Top,Left + Width,Top + Height));
  C.Free;
end;

Немножко не то, но очень близко. Дальше дотачивай сам.