procedure A(Sender: TObject); begin with Sender As TEdit do Text:='1'; end; procedure B(); begin A(Form1.Edit1); end;