procedure TForm1.Button8Click(Sender: TObject);
var
 thId:cardinal;
begin
 CreateThread(0,0,@Getdata,nil,0,thid);
 
{
  Мой код, который надо выполнять после получения ответа
    }

end;