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; 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