Access violation at address 63AA57D0 in module MSVCR120.dll

Pessoal, estou com um problema no onPost de um dataset, já revisei todo o codigo e não encontro a falha, para poder estar dando esse erro.

Alguem pode me sar uma luz de como achar?

Access violation at address 63AA57D0 in module ''''MSVCR120.dll

segue como estou fazendo para chamar o POST...

procedure TFrmPrincipal.BtnCadastrarProdutoMatrizClick(Sender: TObject);
begin
try
if not DM.IBDatabaseMatriz.Connected = True then
begin
DM.IBDatabaseMatriz.Connected := True;
ShowMessage
(''''base Matriz precisa estar conectada para realizar cadastros!'''');
Abort;
end;
DM.DataSetProdutosMatriz.Close;
DM.DataSetProdutosMatriz.Open;
//DM.DataSetProdutosMatriz.Active := True;
DM.DataSetProdutosMatriz.Append;
if DM.DataSetProdutosMatriz.State in [dsInsert] then
begin
DM.DataSetProdutosMatrizCODIGO_FABRICANTE.AsInteger :=
DBLookupComboBox1FabricanteMatriz.ListFieldIndex;

DM.DataSetProdutosMatrizCODIGO_LINHA.AsInteger :=
DBLookupComboBoxLinhasMatriz.ListFieldIndex;

DM.DataSetProdutosMatrizCODIGO_ALIQUOTA.AsInteger :=
DM.DataSetProdutosFilialCODIGO_ALIQUOTA.AsInteger;

DM.DataSetProdutosMatrizREFERENCIA.AsString :=
DM.DataSetProdutosFilialREFERENCIA.AsString;

DM.DataSetProdutosMatrizPRECO_FABRICA.AsFloat :=
DM.DataSetProdutosFilialPRECO_FABRICA.AsFloat;

DM.DataSetProdutosMatrizPRECO_CUSTO.AsFloat :=
DM.DataSetProdutosFilialPRECO_CUSTO.AsFloat;

DM.DataSetProdutosMatrizPRECO_VENDA.AsFloat :=
DM.DataSetProdutosFilialPRECO_VENDA.AsFloat;

DM.DataSetProdutosMatrizSITUACAO_TRIBUTARIA.AsInteger :=
DM.DataSetProdutosFilialSITUACAO_TRIBUTARIA.AsInteger;

DM.DataSetProdutosMatrizDESCRICAO.AsString :=
DM.DataSetProdutosFilialDESCRICAO.AsString;

DM.DataSetProdutosMatrizUNIDADE.AsString :=
DM.DataSetProdutosFilialUNIDADE.AsString;

DM.DataSetProdutosMatrizCODIGO_BARRA.AsString :=
DM.DataSetProdutosFilialCODIGO_BARRA.AsString;

DM.DataSetProdutosMatrizUSUARIO_CAD.AsString := ''''VALDENILSO'''';

DM.DataSetProdutosMatrizCEST.AsString :=
DM.DataSetProdutosFilialCEST.AsString;

DM.DataSetProdutosMatrizULTIMA_COMPRA.AsDateTime :=
DM.DataSetProdutosFilialULTIMA_COMPRA.AsDateTime;

DM.DataSetProdutosMatrizULTIMA_VENDA.AsDateTime :=
DM.DataSetProdutosFilialULTIMA_VENDA.AsDateTime;

DM.DataSetProdutosMatrizFRETE.AsFloat :=
DM.DataSetProdutosFilialFRETE.AsFloat;

DM.DataSetProdutosMatrizIPI.AsFloat :=
DM.DataSetProdutosFilialIPI.AsFloat;

DM.DataSetProdutosMatrizVALOR_ULTIMA_VENDA.AsFloat :=
DM.DataSetProdutosFilialVALOR_ULTIMA_VENDA.AsFloat;

DM.DataSetProdutosMatrizSTATUS.AsString := ''''N'''';

DM.DataSetProdutosMatrizDATA_CAD.AsDateTime := Date;

DM.DataSetProdutosMatrizESTACAO.AsString := ''''MAT-SRV-01'''';

if not DM.DataSetProdutosMatriz.Active = True then
DM.DataSetProdutosMatriz.Active := True;

DM.DataSetProdutosMatriz.Post;
DM.IBTransactionMatriz.CommitRetaining;
Application.MessageBox(''''Produto Cadastrado com Sucesso!'''',
''''Confirmação de Cadastro'''', MB_OK + MB_ICONINFORMATION);

end;
except
on E: Exception do
begin
ShowMessage(''''Não Foi Possivel Cadastrar: '''' + E.Message);
Abort;
end;
end;

end;