[zgs]

Решено.
Нужно передавать конкретный объект.

Код:

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

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

MAD: CODE