var
 SettingsForm {$IFDEF KOL_MCK} : PSettingsForm {$ELSE} : TSettingsForm {$ENDIF} ;
 CanShow: Boolean = true;
 AnswerList: PStrList;

 // переменные для потока
 thID: DWORD;
 HThread: THandle;

procedure ShowSettings; stdcall;
.............................................
//процедура создания и показа моего окна
procedure ShowSettings; stdcall;
begin
CanShow := false;
if Applet <> nil then Applet.Free;
Applet := nil;
AppletTerminated := false;
Applet := NewApplet('');
NewSettingsForm(SettingsForm, Applet);
SettingsForm.Form.Show;
Applet.Visible := false;
Run(Applet);
Applet.Free;
Applet := nil;
AppletTerminated := false;
CanShow := true;
ExitThread(0);
end;
.......................................
//это процедурка, обработчик нажатия кнопки вызова формы плагина
procedure OnButtonLeft(Handle: Integer; X,Y: Integer);
begin
if CanShow
then
  HThread:= CreateThread(nil,0,@ShowSettings,nil,0,thID); //запускаем в потоке процедуру создания и показа формы
else
  SettingsForm.Form.Show; //если форма открыта, то передаём ей фокус
end;
..................
//процедура которая вызывается при получении уведомления об отключении плагина
procedure OnFinalize;
begin
if HThread <> 0
then
  begin
   if not CanShow
   then
     SettingsForm.Form.Close;
   TerminateThread(HThread,0);
   MessageBox(0,'unload','dfdf',MB_ICONINFORMATION);
  end;
end;

procedure TSettingsForm.LVMouseDblClk(Sender: PControl;
 var Mouse: TMouseEventData);
begin
if LV.LVCount < 1
then
  exit;

if (LV.LVCurItem = LV.LVFocusItem)
then
  RQ_OpenContactInfo(Int2Str(LV.LVItemData[LV.LVFocusItem]));
end;

procedure RQ_OpenContactInfo(uin: String);
begin
callStr(char(PM_CMD) + char(PC_SHOWINFO) + _istring(uin));
end;