No termina ejecución Programa principal al usar un Thread

[[gluglu]]

Ya he detectado el origen del problema.

Resulta que al hacer un Terminate del Thread, realmente no lo está 'cancelando' o 'abortando' en el proceso que se encuentre en ese momento, que precisamente es el Sleep(600000) en mi caso (10 minutos).

He bajado el tiempo de Sleep a 30 segundos, y si paro el proceso y salgo de la aplicación, al cabo de máximo 30 segundos se termina correctamente la aplicación principal.

Investigaré por ese punto y ya informaré.

[droguerman]

para evitar ese cuelgue quizás puedas editar tu hebra de la siguiente forma:

Código Delphi [-]
type
  TMainform = class(TForm)
  ....
  TMyThread = class(TThread)
  private
    ejecutar: integer; 
  protected
    procedure Execute; override;
  public
  end;

....

Código Delphi [-]

procedure TMyThread.Execute;
begin
 
  repeat
    ....
    if ejecutar=10 then
    begin
       //aqui pones tu código 
       ejecutar := 0;  
    end
    else
       ejecutar := ejecutar +1; 
    Sleep(6000);  // 1 Minute
 
  until Terminated;
 
end;

[[gluglu]]

Gracias por tu ayuda.

Ya conseguí solucionar el problema. La solución completa está aqui.

Al final incluí un TTimer y hago uso de la propiedad Tag de dicho Timer para comprobar si debo ejecutar el Thread.