Temporizador y ToolTip

[ecfisa]

Hola danny915 y bienvenido a Club Delphi

Como a todos los que se inician te invitamos a leer nuestra Guía de estilo.

Código Delphi [-]
...
var
  TimeRemaining: Integer = 0;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval:= 1000; // 1 seg;
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if TimeRemaining = 60 then Application.Terminate;
  Inc(TimeRemaining);
  Caption:= IntToStr(TimeRemaining);
end;

procedure TForm1.btnAbortClick(Sender: TObject);
begin
  Timer1.Enabled:= False;
end;

Cuando tengas dos consultas para realizar crea dos hilos diferentes, uno para cada una de ellas

Saludos