[Nyctos Kasignete]

glaZZ, если я правильно понимаю, нужен не снимок всего экрана, а только формы.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.Width := Width;
    bmp.Height := Height;
    BitBlt(bmp.Canvas.Handle, 0, 0, Width, Height,
           GetDC(GetDesktopWindow), Left, Top, SRCCopy);
    bmp.SaveToFile('D:\form.bmp');
  finally
    bmp.Free;
  end;
end;