Problema ejecución consulta

[Neftali [Germán.Estévez]]

¡Qué grande Caro! (me has leído la mente)
Justamente lo que te ha comentado.

Si además añades esto al código:

Código Delphi [-]
var
 sl :TStringList;
begin
 sl := TStringList.Create;
 Try
  if FileExist('c:\Archivo.txt') then begin
    sl.LoadFromFile('c:\Archivo.txt');
  end;
  sl.Add(Query.SQL.Text);
  sl.SaveToFile('c:\Archivo.txt');
 Finally
  sl.Free;
 end;

Tendrás un fichero que va guardando historial de todas las consultas que ejecutas.