procedure Tform_log_sql.DBGrid2DblClick(Sender: TObject);
var cadenasql : string;
begin
cadenasql := qry_logsql.FieldByName('sqlquery').AsString;
showmessage(cadenasql);
qry_exec_log.SQL.clear;
qry_exec_log.close; qry_exec_log.SQL.add(cadenasql);
showmessage(qry_exec_log.SQL.text);
qry_exec_log.Open;
end;