[[Al González]]

Mientras esa limitación exista, una solución es:

Código Delphi [-]
unit uUnidadControl;

interface

type
  cUnidadControl = class
                           private
                            Dato: string;
                            EntradaSalida: Pointer;  {cEntradaSalida}
                           public
                            constructor Create(Dat: string; ES: Pointer {cEntradaSalida});
                            procedure AlmacenarDato(Dat: string);
                            procedure EnviarDato;
                           end;

implementation

Uses
  uEntradaSalida;

{ cUnidadControl }

constructor cUnidadControl.Create(Dat: string; ES: Pointer {cEntradaSalida});
begin
 Dato := Dat;
 EntradaSalida := ES;
end;

procedure cUnidadControl.EnviarDato;
begin
 cEntradaSalida (EntradaSalida).RecibirDato(Dato);
end;

procedure cUnidadControl.AlmacenarDato(Dat: string);
begin
 Dato := Dat;
end;

end.

Saludos.

Al González.