[NEoMASTERR]

Код из демо приложения

Код:

procedure TForm1.btn2Click(Sender: TObject);
var
  s:string;
begin
  s:=vk.GetUserName('41891803');  // - собсн функция
  showmessage('Его зовут '+s);
end;

Код компонента

Код:

function TVkClient.GetUserName(user_id: string;last_name:boolean=false): string;
begin
  // Добавляются параметры в record и в общую кучу, 
  //надо как то заставить приложение ждать результата
end;

Код:

procedure TVKTHR.execute;
begin
  // код потока, он выполнил запрос из первого элемента массива, получил результат
  // теперь надо вернуть обратно в функцию
end;