Потоки - как сделать так чтоб при остановке процедуры в сторонней программе поток завершался в моей программе ?

[DarkEvolution]

есть программа созданная через делфи 2010 с компиляцией в dll файл, dll используется используется в другой программе которая открывает интерфейс созданной программы через делфи по нажатии на кнопку в интерфейсе выполняется определенная процедура в сторонней программе и чтоб окно интерфейса не зависала при выполнении этой процедуры был введен поток все работает и программа не зависает процедура выполняется, но если произвести остановку сторонней программой процедуры до завершения выполнения этой процедуры (процедура выполняется сек 30) если остановить выполнение на 10 сек то сторонию программу критует как сделать так чтоб при остановке процедуры в сторонней программе поток завершался в моей программе ?

код моей программы

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;



type
TForm1 = class(TForm)
btn5: TButton;
CheckBox1: TCheckBox;
Button1: TButton;
Timer1: TTimer;
procedure btn5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);

private
fRestore: Boolean;
public
end;





//Здесь необходимо описать класс TMyThread:
TMyThread = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;





var
Form1: TForm1;
MyThread: TMyThread;
_PluginProc: function(Code: Cardinal; p1, p2, p3: widestring): widestring; stdcall;
implementation



{$R *.dfm}



function PluginProc(Code: Cardinal; p1: widestring = ''; p2: widestring = ''; p3: widestring = ''): widestring;
begin
Result := _PluginProc(Code, p1, p2, p3);

end;




///поток
procedure TMyThread.Execute();
begin
while 1<>2 do begin
PluginProc(0);
sleep(6000) ;
end;
end;


///кнопка закрытия окна
procedure TForm1.btn5Click;
begin
Close;
end;


//// чекбох
procedure TForm1.Button1Click(Sender: TObject);
begin
if CheckBox1.Checked then
//Вначале нужно создать экземпляр потока:
MyThread:=TMyThread.Create(False);
//Параметр False запускает поток сразу после создания, True - запуск впоследствии , методом Resume
//Далее можно указать параметры потока, например приоритет:
MyThread.Priority:=tpNormal;

end;



procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin

Action := caNone;
Hide;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin

end;

///по верх всех окон
procedure TForm1.Timer1Timer(Sender: TObject);
begin
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE)
end;

end.