[Admin]

Код:

var
 dc: hdc;
 Bmp: TBitmap;
begin
 dc:=GetWindowDC(GetDesktopWindow);
 try
  Bmp:=TBitmap.Create;
  try
   Bmp.Width:=Screen.Width;
   Bmp.Height:=Screen.Height;
   BitBlt(Bmp.Canvas.Handle,0,0,Screen.Width,Screen.Height,DC,0,0,SRCCOPY);
   Bmp.SaveToFile('c:\tmp\1.bmp');
  finally
   Bmp.Free;
  end;
 finally
  ReleaseDC(GetDesktopWindow, dc);
 end;
 Image1.Picture.LoadFromFile('c:\tmp\1.bmp');
end;

Дальше сам...