... type TForm2 = class(TForm) btn1: TButton; Image1: TImage; procedure btn1Click(Sender: TObject); procedure GetScreen; private { Private declarations } public { Public declarations } end; ....