[ElDuc]

Código Delphi [-]
unit _ieApplication;
interface
uses
  SysUtils, Classes, JfMain;
type
  TieData=Record
    A:Integer;
    B:Integer;
    End;
  TieApplication = class(TJfCApplication)
  private
    { Private declarations }
    vieData:TieData;
    Function rieData:TieData;
    Procedure wieData(V:TieData);
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    Property ieData:TieData Read rieData Write wieData;
  end;
procedure Register;
implementation
Function TieApplication.rieData:TieData;
Begin
Result.A:=vieData.A;
Result.B:=vieData.B;
End;
Procedure TieApplication.wieData(V:TieData);
Begin
vieData.A:=V.A;
vieData.B:=V.B;
End;
procedure Register;
begin
  RegisterComponents('ieCRON', [TieApplication]);
end;
end.