"FreeOnTerminate" es una propiedad de la clase TThread, de la cual se implementan todos los Threas es una aplicación, incluyendo los que tu crees. Esta propieda indica si el Thread se destruye automáticamente luego de realizar su trabajo. Si la asignas a "False", entonces tú tendrás que encargarte manualmente de destruir el thread que hayas creado.
El código:
Código:
if Terminated then ...
sólo debería ser utilizada dentro del código interno del thread. No debes asignarla manualmente, o sea:
Código Delphi
[-]
mi_thread.terminated := True;
Para asignar esta propiedad utiliza el procedimiento "Terminate;" en tu thread principal u otro.
Pueda ser que hayas quedado un poco confundido con respecto a lo anterior. Ahora te explico con un ejemplo. Imaginate que has creado un Thread que recorre todos los registros de una tabla, y deseas darle al usuario la posibilidad de cancelar el proceso, pues puede durar mucho. Entonces creas un Thread con el siguiente código para recorrer la tabla:
Código Delphi
[-]procedure TMi_thread.Execute;
begin
while not La_Tabla.Eof do
begin
Next;
end;
end;
Sin embargo, lo que se desea es que el usuario pueda cancelar el proceso en el momento que desee. Si lo hacer con un mi_thread.Free; seguro que tendrás problemas. Entonces los que hacemos es verificar la propiedad "Terminated" antes de ir al siguiente registro, con lo cual el código anterior qudaría así:
Código Delphi
[-]procedure TMi_thread.Execute;
begin
while not La_Tabla.Eof do
begin
if self.terminated then
Break; Next;
end;
end;
El código anterior es seguro para trabajar con threads o hilos. Solo faltará agregar código al botón "Cancelar" que verá el usuario. Podría ser un código tan simple como este:
Saludos.