[marcoszorrilla]

Algo como esto:

Código Delphi [-]
  if lSeguir = True then
  begin
  Application.ProcessMessages;
  QrImpOldDos.DatabaseName:=DmPal.confExportUnidad.Value+'\';
 
  QrImpOldDos.Close;
  QrImpOldDos.Sql.Clear;
  QrImpOldDos.Sql.Add('Select Codigo,Club From Fcexpcon');
  QrImpOldDos.Open;
..........

Un Saludo.