[Lazarus] TDBNavigator.OnClick has problem

[FreeMan]

Hello,

if I use "OnClick" event, example


procedure TFRM_.NAV_Click(Sender: TObject; Button: TDBNavButtonType);
begin
NAV_ClickXx(Button);// or PostMessage(Self.Handle, LM_USER, 1, - 2);
end;

I get this error, and I cannot handle where is it.

Project UGS_Dental raised exception class 'External: SIGFPE'.

In file 'lclproc.pas' at line 860:

if (length(Msg) div (length(Msg) div 10000))=0 then ;

Click to run and application continue to work normal, after this error:

Division by zero.

Press OK to ignore and risk data corruption.

Press Cancel to kill the program.



But this code is work without error
procedure TFRM_.NAV_Click(Sender: TObject; Button: TDBNavButtonType); 
begin Self.Tag := 1; end;
this code or etc simple code work without problem.

regards

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20140404/99927744/attachment-0002.html>