capture forms exact image...

try this code, pass the form as the parameter:

function GetImage(FForm: TForm): TBitmap;
begin
  Result := TBitmap.Create;
  Result.Width := FForm.ClientWidth;
  Result.Height := FForm.ClientHeight;
  Result.Canvas.Lock;
  try
    with Result do
      BitBlt(Canvas.Handle, 0, 0, Width, Height, FForm.Canvas.Handle, 0, 0, SRCCOPY);
  finally
    Result.Canvas.Unlock;
  end;
end;

Hi,
may be this is not what you're looking for,,,but try it....

function CaptureScreen: TBitmap;
var
 DC: HDC;
 ABitmap: TBitmap;
 MyCursor: TIcon;
 CursorInfo: TCursorInfo;
 IconInfo: TIconInfo;
begin
 // Capture the Desktop screen
 DC := GetDC(GetForeGround);
 ABitmap := TBitmap.Create;
 try
   ABitmap.Width  := GetDeviceCaps(DC, HORZRES);
   ABitmap.Height := GetDeviceCaps(DC, VERTRES);
   // BitBlt on our bitmap
   BitBlt(ABitmap.Canvas.Handle,
     0,
     0,
     ABitmap.Width,
     ABitmap.Height,
     DC,
     0,
     0,
     SRCCOPY);
   // Create temp. Icon
   MyCursor := TIcon.Create;
   try
     // Retrieve Cursor info
     CursorInfo := GetCursorInfo2;
     if CursorInfo.hCursor <> 0 then
     begin
       MyCursor.Handle := CursorInfo.hCursor;
       // Get Hotspot information
       GetIconInfo(CursorInfo.hCursor, IconInfo);
       // Draw the Cursor on our bitmap
       ABitmap.Canvas.Draw(CursorInfo.ptScreenPos.X - IconInfo.xHotspot,
                           CursorInfo.ptScreenPos.Y - IconInfo.yHotspot, MyCursor);
     end;
   finally
     // Clean up
     MyCursor.ReleaseHandle;
     MyCursor.Free;
   end;
 finally
   ReleaseDC(GetForeGround, DC);
 end;
 Result := ABitmap;
end;

// Example: Capture the screen and include the cursor.
// Show the Screenshot in Image1

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture.Assign(CaptureScreen);
end;

function PrintWindow(SourceWindow: hwnd; Destination: hdc; nFlags: cardinal): bool; stdcall; external 'user32.dll' name 'PrintWindow';

procedure TForm1.FormCreate(Sender: TObject);
var
  bmp : tbitmap;
  rec : trect;
  wnd : cardinal;
begin
wnd := findwindow('mirc', nil);
getwindowrect(wnd, rec);
bmp := TBitmap.Create;
bmp.width := rec.right - rec.left;
bmp.height := rec.bottom - rec.top;
bmp.pixelformat := pf24bit;
PrintWindow(wnd, bmp.canvas.handle, 0);
bmp.savetofile('d:\mirc.bmp');
bmp.free;
end;

This function will save the forms image exactly, regardless of whether or not other forms are covering a part of it or if part of it is off the screen. In fact, it redraws everything (all controls) based on it's current properties and states. Unfortunately it only works for the client area. Is this ok? Or do you need the whole form i.e. border, title bar and client area.

procedure SaveFormToBmp(f: TForm; fname: String);
var b: TBitmap;
begin
  b:= TBitmap.Create;
  b.Width:= f.ClientWidth;
  b.Height:= f.ClientHeight;
  f.PaintTo(b.Canvas,0,0);
  b.SaveToFile(fname);
  b.Free;
end;

Regards
Pierre