Form "Procesando..." que no se congele

[roman]

Aquí un ejemplito:

Código Delphi [-]
type
  TQueryThread = class(TThread)
  private
    Query: TQuery;
  protected
    procedure Execute; override;
  public
    class procedure Run(Query: TQuery);
  end;

implementation

procedure TQueryThread.Execute;
begin
  Query.Open;
end;

class procedure TQueryThread.Run(Query: TQuery);
var
  Thread: TQueryThread;

begin
  Thread := TQueryThread.Create(true);
  Thread.FreeOnTerminate := true;
  Thread.Query := Query;
  Thread.Resume;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  TQueryThread.Run(Query1);
end;

// Saludos