Exception nazwa formy

Raportujemy bledy:

procedure TfmMain.ApplicationEvents1Exception(Sender: TObject; E: Exception);
var
   ErrorLogFileName : string;
   ErrorFile : TextFile;
   ErrorData : string;
begin
   ErrorLogFileName := ChangeFileExt(Application.ExeName,'_error.log') ;
   AssignFile(ErrorFile, ErrorLogFileName) ;

   if FileExists(ErrorLogFileName) then
     Append(ErrorFile)
   else
     Rewrite(ErrorFile) ;

   try
     ErrorData := Format('%s : %s',[DateTimeToStr(Now), E.Message]) +#13#10;
     WriteLn(ErrorFile,ErrorData) ;
   finally
     CloseFile(ErrorFile)
   end;

Moje pytanie jak teraz do tego dodac informacje o formatce lub zdarzeniu na ktorym sie dany error wywolal ?? Np jesli gosc kliknie formatke A to chcialbym wiedziec ze blad wystapil na formatce A jesli chce uruchomic formatke B z formatki A klikajac button to tez chcialbym taka informacje miec w pliku. Wie ktos jak to zrobic?

zobacz http://www.jirihajek.net/delphi/ExceptLog.pas

Dzieki Misiekd