Fórum Abstract Error #7499

OLá pessoal, preciso da ajuda de vocês !!!!


 Fiz um form principal, em seguida fiz um form de base para eu ter ele como matriz, fiz 2 data modules, um para conexão e outro para a tabela de dados, em seguida criei um novo form herdando do primeiro e agora qdo eu faço a chamada dele esta dando a mensagem "Abstract Error".

A Aplicaçao está como MDI FORM, o formbase esta como MDICHILD. Ja tinha feio algo parecido antes sem dar este problema, a unica diferença agora é o tipo do form MdiChild e as implententações que eu fiz.

Abaixo a Unit do FormBase:

=======================================================================

unit uFrmBase;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, ExtCtrls, ActnList, ImgList, ToolWin, ComCtrls, Menus, DB;

type
  TFrmBase = class(TForm)
    TobBase: TToolBar;
    ImgBase: TImageList;
    Ac_Base: TActionList;
    pnlBase: TPanel;
    PpmBase: TPopupMenu;
    Ac_Incluir: TAction;
    Ac_Alterar: TAction;
    Ac_Excluir: TAction;
    Ac_Cancelar: TAction;
    Ac_Pesquisar: TAction;
    Ac_Ferramentas: TAction;
    Ac_Salvar: TAction;
    Ac_Fechar: TAction;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    Calculadora1: TMenuItem;
    Calendrio1: TMenuItem;
    N1: TMenuItem;
    Ajuda1: TMenuItem;
    N2: TMenuItem;
    Relatrios1: TMenuItem;
    N3: TMenuItem;
    DsBase: TDataSource;
    procedure Ac_IncluirExecute(Sender: TObject);
    procedure Ac_AlterarExecute(Sender: TObject);
    procedure Ac_ExcluirExecute(Sender: TObject);
    procedure Ac_CancelarExecute(Sender: TObject);
    procedure Ac_PesquisarExecute(Sender: TObject);
    procedure Ac_FerramentasExecute(Sender: TObject);
    procedure Ac_SalvarExecute(Sender: TObject);
    procedure Ac_FecharExecute(Sender: TObject);
    procedure Ac_IncluirUpdate(Sender: TObject);
    procedure Ac_CancelarUpdate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmBase: TFrmBase;

implementation

uses
  DBClient, Dialogs;

{$R *.dfm}

procedure TFrmBase.Ac_AlterarExecute(Sender: TObject);
begin
   if not DsBase.DataSet.IsEmpty then
   begin
     pnlBase.Enabled := True;
     DsBase.DataSet.Edit;
   end
   else
   if DsBase.DataSet.IsEmpty then
   ShowMessage('É necessário selecionar um registro para esta opção !!!');
end;

procedure TFrmBase.Ac_CancelarExecute(Sender: TObject);
begin
  TClientDataSet(DsBase.DataSet).CancelUpdates;
  pnlBase.Enabled := False;
end;

procedure TFrmBase.Ac_CancelarUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := DsBase.DataSet.State in [dsInsert, dsEdit];
end;

procedure TFrmBase.Ac_ExcluirExecute(Sender: TObject);
begin
  if not DsBase.DataSet.IsEmpty then
  begin
   if MessageDlg('Deseja realmente apagar o registro?', mtWarning,[mbYes,mbNo],0) = mrYes then
   begin
      pnlBase.Enabled := True;
      DsBase.DataSet.Delete;
      TClientDataSet(DsBase.DataSet).ApplyUpdates(0);
      ShowMessage('Registro apagado com sucesso !!!');
   end
   else
   if MessageDlg('Deseja realmente apagar o registro?', mtWarning,[mbYes,mbNo],0) = mrNo then
   begin
      pnlBase.Enabled := False;
      ShowMessage('Operação cancelada !!!');
   end;
  end
  else
  if DsBase.DataSet.IsEmpty then
  Showmessage('É necessário selecionar um registro para esta opção !!!');
end;

procedure TFrmBase.Ac_FecharExecute(Sender: TObject);
begin
   if MessageDlg('Deseja realmmente sair?', mtWarning,[mbYes, mbNo],0) = mrYes then
   begin
     if DsBase.DataSet.State in [dsInsert, dsEdit] then
     begin
      if MessageDlg('Deseja salvar as alterações?',mtConfirmation,[mbYes, mbNo, mbCancel],0) = mrYes then
      begin
        DsBase.DataSet.Post;
        TClientDataSet(DsBase.DataSet).ApplyUpdates(0);
        ShowMessage('Alterações/Inclusões salvar com sucesso !!!');
        Close;
      end
      else
      if MessageDlg('Deseja salvar as alterações?',mtConfirmation,[mbYes, mbNo, mbCancel],0) = mrNo then
      begin
        TClientDataSet(DsBase.DataSet).CancelUpdates;
        ShowMessage('Alterações/Inclusões canceladas !!!');
        Close;
      end
     end;
   end;
end;

procedure TFrmBase.Ac_FerramentasExecute(Sender: TObject);
begin
 ;
end;

procedure TFrmBase.Ac_IncluirExecute(Sender: TObject);
begin
  if not DsBase.DataSet.Active then
  DsBase.DataSet.Open;
    pnlBase.Enabled := True;
    DsBase.DataSet.Insert;
end;

procedure TFrmBase.Ac_IncluirUpdate(Sender: TObject);
begin
   TAction(Sender).Enabled := DsBase.DataSet.State in [dsInactive, dsBrowse];
end;

procedure TFrmBase.Ac_PesquisarExecute(Sender: TObject);
begin
  ;
end;

procedure TFrmBase.Ac_SalvarExecute(Sender: TObject);
begin
  DsBase.DataSet.Post;
  TClientDataSet(DsBase.DataSet).ApplyUpdates(0);
  pnlBase.Enabled := False;
end;

end.

==============================================================

O que eu fiz de errado? Onde devo corrigir?

Abraços,

Rogério