und warum nicht:
Delphi-Quellcode:
type
ttestobject = class...
procedure bla1
begin
testobject1:=create(owner ....);
bla2(testobject1);
end;
procedure bla2(_reftestobject: ttestobject);
begin
with _reftestobject do
begin
//mach was zu tun ist
end;
end;
die variable testobject1 musst natürlich irgendwo deklarieren, z.B. in deinem Form oder einem eigenen Variablen-Container