Gravar em Log de Erro Tabela c/ Key Violation

Ola Galera

Estou com problema de Key Violation ( Paradox) e não consigo localizar em qual tabela pois só ocorre quando esta em uso pelos usuários, já criei um log de erro vide abaixo mas não sei como gravar qual a tabela ou linha do programa.

procedure TFrmLemca.ApplicationEvents1Exception(Sender: TObject;
E: Exception);
var
NomeDoLog: String;
Arquivo: TextFile;
begin
NomeDoLog:= ChangeFileExt(Application.ExeName,´.log´);
AssignFile(Arquivo, NomeDoLog);
if FileExists(NomeDoLog) then
Append(Arquivo)
else
Rewrite(Arquivo);
try
Writeln(Arquivo, Datetimetostr(now)+´:´+ E.Message);
Application.ShowException(E);
finally
CloseFile(Arquivo);
end;
end;