I have make it

procedure TfrmPrincipal.FormCreate(Sender: TObject);
begin
Width := 640;
Height := 480;
Application.OnException := AppException;
end;

procedure TfrmPrincipal.AppException(Sender: TObject; E: Exception);
begin
Application.ShowException(E);
end;

But it is not the soluction, is just another.

Thanks