Use the GetFormImage method to obtain a bitmap of the form and save it to the clipboard by Clipboard.Assign method. implementation uses Clipbrd;
procedure TForm1.Button2Click(Sender: TObject); var Bitmap: TBitMap; begin try Bitmap:=GetFormImage; Clipboard.Assign(Bitmap); Image1.Picture.Assign(Clipboard); finally end; end; end;