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