//---------------------------------------------------------------------------extern PACKAGE TForm1 *Form1;void lne(TForm *frm);//---------------------------------------------------------------------------void lne(TForm *frm){ frm->Canvas->MoveTo(10,10); frm->Canvas->LineTo(100,100);}//---------------------------------------------------------------------------void __fastcall TForm1::Button1Click(TObject *Sender){ lne(Form1);}