klingt nach einem Redesign?
Ansonsten füg unter uses im interfaces-Teil von Unit1 Unit2 ein,
und unter implementation von unit2 unit1.
Beim Constructor der Unit2 castest du auf das andere Object:
Delphi-Quellcode:
constructor TObjectunit2.create(aObject:TObject);
var myObjectUnit1:TObjectUnit1;
begin
inherited;
if (aObject is TObjectUnit1) then myObjectUnit1:=(aObject as TObjectUnit1);
end;
ist zwar nicht sehr elegant, aber funktioniert.
hoffe das hilft.
cu
waba