[ALexandr555]

Код:

 addmesseg:='(' + DateTimeToStr(Now()) + ') '+'отправлен запрос в плагин=> '+ UIN;
 Memo2.Lines.Add(addmesseg);
 writeln(logfile1,addmesseg);
 inc(statistik1);
 Label1.Caption:=IntToStr(statistik1);
 @plugExec := GetProcAddress(PPluginInfo(listKomand.Items[n1])^.handle,'PluginExec');
 Result:=PlugExec(UIN, Msg,PPluginInfo(listKomand.Items[n1])^.Index);
 i:=random(10);
   case i of
    0: ;
    1: Result:=Result+#10#13+rekl1.text;
    2: Result:=Result+#10#13+rekl2.text;
    3: Result:=Result+#10#13+rekl3.text;
    4: Result:=Result+#10#13+rekl4.text;
    5: Result:=Result+#10#13+rekl5.text;
    6: Result:=Result+#10#13+rekl6.text;
    7: Result:=Result+#10#13+rekl7.text;
    8: Result:=Result+#10#13+rekl8.text;
    9: Result:=Result+#10#13+rekl9.text;
  end;
form1.MessageSend(UIN,Result,nomer);

вот это у меня было в процедуре которую вызывал через Synchronize
ну и в программе этот поток ежесекундно раз по 3-5 вызывался
изначально все было нормально, через минут 5 потом "началось"