[zgs]

Как использовать переданный в процедуру параметр типа TObject в конструкции with? Передается TForm

Код:

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

procedure B();
begin
   A(Form1);
end;

MAD: CODE