[lmikle]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Bitmap : TBitmap;
begin
  Bitmap := TBitmap.Create;
  Bitmap.Pixelformat := pf24Bit;
  Bitmap.Width := Form1.ClientWidth;
  Bitmap.Height := Form1.ClientHeight;
  Form1.PaintTo(Bitmap.Canvas,0,0);
  Bitmap.SaveToFile('c:\form.bmp');
  Bitmap.Free;
end;

Правда рисует только содержимое формы, без заголовка.