¡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.