[oscarnoe]

Primero te recomendaria separar el codigo del hilo del form y teoricamente, con terminate y un comprobacion de la propiedad terminated del hilo para salir del bucle principal del hilo.

En la ayuda de delphi pone el siguiente codigo

Código Delphi [-]
procedure TMyThread.Execute;
begin
  while not Terminated do
    PerformSomeTask;
end;

yo lo extenderia asi

Código Delphi [-]
procedure TMyThread.Execute;
begin
  //inicializacion de objetos
  try
    while not Terminated do
    begin
      // haz lo que debas
    end;
  finally
    // liberacion/finalizacion de objetos
  end;
end;