error en un action

[anubis]

Hola,

Estoy usando lazarus e intento usar éste código:

Código Delphi [-]
procedure TForm1.ACEITESPostError(DataSet: TDataSet; E: EDatabaseError;
  var DataAction: TDataAction);
begin
 {Error in the Post}
  ShowMessage('Error al dar de alta un nuevo registro'+#13+
              'Motivo:'+E.Message);
  Action:=daAbort;
end;

Cuando llega al action, me arroja este error:

Código Delphi [-]
principal.pas(99,29) Error: Incompatible type for arg no. 1: Got "TDataAction", expected "TBasicAction"

El código lo copie tal cual pero por mucho que miro no hay forma.

gracias

Ya está solucionado, cambie action por dataaction. Lo que no sé es si en lazarus hay que hacerlo así.
saludos y gracias