[ASAPLTDA]

Buenos dias foristas
Estoy construyendo una clase en la cual debo:
1. crear tclientdataset, y los he colocado en en on create, pero este paso no se ejecuta, pienso que debo estar usando algo mal podrian darme un ayuda gracias

2. si debo crear los dataset usando self o null

Código Delphi [-]

{-----------------------------------------------------------------------------
INMOVTR-- CLASE MOVIMIMIENTOS DE INVENTARIOS
-----------------------------------------------------------------------------}
unit INMOVTR;

interface

uses
  Windows, Messages, SysUtils, Classes,  Controls , DB, Dialogs,
     Datasnap.DBClient ;


type
  TINMOVTR = class(TComponent)
  private
    t_ok          :Boolean ;
    t_Existe      :Boolean ;
    Flg_DatasetOK :Boolean;

    FDocnumero    :string;
    FDocFecha     :TDateTime ;
    FIncodtra      : string;
    FTipoMov      : string;
    FPgmcode       :string;
    FIdInsaldoFrm  :Integer ;


    // variable y objectos de trabajo
    inmov_frm      :TClientDataSet;
    InMov_to       :TClientDataSet;
    PEDMST         :TClientDataSet;

    procedure      CrearDataSets(var Flg_DatasetOK:Boolean);

    constructor create(Aowner:tcomponent);override;

  protected
  public
    FFechaInforma : tdatetime;
  published
    //  Entrada Desde
    property Docnumero      :string    read FDocNumero     write FDocnumero;
    property DocFecha       :TDateTime read fDocFecha      write fDocFecha;
    property IdInsaldoFrm   :Integer   read FIdInsaldoFrm  write FIdInsaldoFrm;
    //  Entrada Destino
    property Cono_to        :string    read FCono_to       write FCono_to ;
    property ClfCod_to      :string    read FClfCod_to    write  FClfCod_to       ;

     // Salida
    property FlgError       :Boolean   read FFlgError      write FFlgError   ;
    property MsgError       :string    read FMsgError      write FMsgError;                        // write FMsgError
    function execute_reubica:Boolean ;

  end;

procedure Register;

implementation

 uses F, tablas, TABLASINV;       // datamodulos


Constructor  TINMOVTR.Create(Aowner:Tcomponent);
Begin
 inherited create(Aowner);
  Flg_DatasetOK := false;
  DocFecha  :=  date ;
  intramst      := TClientDataSet.Create(nil);
  insaldo_frm   := TClientDataSet.Create(nil);
  insaldo_to    := TClientDataSet.Create(nil);
End;

procedure TINMOVTR.CrearDataSets(var Flg_DatasetOK:Boolean);
begin
  intramst      := TClientDataSet.Create(self);
  insaldo_frm   := TClientDataSet.Create(nil);
  insaldo_to    := TClientDataSet.Create(nil);
  inmov_frm     := TClientDataSet.Create(self);
  InMov_to      := TClientDataSet.Create(self);
  PEDMST        := TClientDataSet.Create(self);


  Flg_DatasetOK := True;
end;


procedure Register;
begin
//  RegisterComponents('SEI-FECHAS', [TINMOVTR]);
end;

procedure TINMOVTR.CrearDataSets(var Flg_DatasetOK:Boolean);
begin
  intramst      := TClientDataSet.Create(self);   <----------------------??? usar nil o self
  insaldo_frm   := TClientDataSet.Create(nil);
  insaldo_to    := TClientDataSet.Create(nil);
 
  Flg_DatasetOK := True;
end;
......