TSkype + Поток

[WayneW]

Здравствуйте. У меня проблемка
Написал код для добавления друзей в skype через api.
Код работает, но не выполняется в потоке, проблему так и не понял, помогите, пожалуйста )

type
  TMyThread =Class (TThread)
    private
 
    { Private declarations }
    public
  { Public declarations }
  procedure Execute; Override ;
  End;
 
procedure TMyThread.Execute;
var
i:integer;
UserList : IUserCollection;
begin
 
for I := 0 to form1.memo1.Lines.Count - 1 do
begin
 
 UserList := form1.Skype1.SearchForUsers(form1.memo1.Lines[i]);
if UserList.count <> 0 then
begin
 
  UserList.Item[1].BuddyStatus:=budPendingAuthorization;
  form1.Label1.Caption:=IntToStr(StrToInt(Form1.Label1.Caption)+1);
end
else
begin
  form1.Label2.Caption:=IntToStr(StrToInt(Form1.Label2.Caption)+1);
end;
end;
end;
 
procedure TForm1.Button7Click(Sender: TObject);
var
MyThread:TMyThread;
begin
MyThread:=TMyThread.Create(True);
MyThread.FreeOnTerminate:=true;
MyThread.Priority:=tpLower;
MyThread.Resume;
end;

Думал с этим компонентом нельзя работать в потоке, но другие функции выполняются.
Например:

form1.Skype1.Client.Minimize;

[WayneW]

Проблема решена