Thread, arrêt direct

Salut ;)
Est-il possible de stoper un thread directement et pas indirectement, je m'explique.
Est t'il possible de stoper le thread directement a partir d'une procedure comme un truk comme ca :

procedure TTT.Execute; begin ... end; procedure TForm1.Button2Click(Sender: TObject); begin // ici un truk du style STOP TTT.EXECUTE sans que se soi TTT.execute qui se stop lui meme, Cad que meme si ttt.execute plante et ne reponde plus a rien, a partir d'une procedur exterieur comme celle ci je puisse le Stoper end;

Une tel chose est t'elle possible ?
Merci

nomDuThread.suspend;// attend.
nomDuThread.resume; //reprend là où il était ...


thread:=TonTypedeThread.Create(false);
//thread.Suspend;
thread.Terminate;
thread.Free;

devrait fonctionner si tu hérites des fonctionnalité de la classe de base TThread.

exemple:

type
TMonThread = class(TThread)
private
{ Déclarations privées }
protected
procedure Execute; override;
public
constructor Create();
end;

implementation
procedure TMonThread.Execute;
begin
.....
end;
constructor TMonThread.Create;
begin
FreeOnTerminate := True;
inherited Create(true);
Priority := tpNormal;
//tpNormal//tpLowest//Lower
//tpIdle//tpHigher//timecritical
end;

{
var TR:TMonThread;
TR:=TMonThread.Create(false);
//TR.Suspend;
try TR.Terminate; except;end;
try TR.Free; except;end;


yve