Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) button1: tbutton; button2: tbutton; button3: tbutton; Procedure button1click (Sender: tobject); Procedure button2click (Sender: tobject); Procedure button3click (Sender: tobject); end; var form1: tform1; implementation {$ R *. DFM} uses clipbrd; {clipboard unit} // Save the form customer area as an image procedure tform1.button1click (Sender: tobject); var bit: tbitmap; begin bit: = tbitmap. create; bit: = self. getformimage; bit. savetofile ('C: \ temp \ img1.bmp '); bit. free; end; // procedure tform1.button2click (Sender: tobject); Begin self. getformimage. savetofile ('C: \ temp \ img2.bmp '); end; // copy the form client image to the clipboard procedure tform1.button3click (Sender: tobject); var format: word; Data: Cardinal; apalette: hpalette; begin {tbitmap. the three parameters of the savetoclipboardformat function all accept data. You can define them according to the required type.} getformimage. savetoclipboardformat (format, Data, apalette); {put into clipboard} clipboard. setashandle (format, data); end.