Помогите с TOR с помощью Delphi

Выдаёт ошибку при запуске кода на исполнение (
в чом проблема подскожите

PHP:

procedure TForm1.Button1Click(Sender: TObject);
var
  sck:TIdTCPClient;
  st : String;
begin
  sck:=TIdTCPClient.Create(nil);
  try
    sck.Host:='127.0.0.1';
    sck.Port:=9799; //ControlPort 9799
    sck.Connect;
    sck.SendCmd('AUTHENTICATE','');
    if sck.LastCmdResult.Code='250' then
    begin
      sck.SendCmd('SIGNAL NEWNYM','');
    end;
  finally
    sck.Free;
  end;



[Error] Unit1.pas(38): There is no overloaded version of 'SendCmd' that can be called with these arguments

ругаеться на SendCmd

 

У меня скомпилировалось без ошибок delphi 2010. На форму кинул 1 кнопку и IdTCPClient

 

у меня delphi 7

 

Кто-нибудь когда-нибудь вообще поймет что существует F1 в Делфи?
Выделяем нужное, жмем F1 и получаем:
function SendCmd(const AOut: string; const AResponse: SmallInt = -1): SmallInt; overload;
function SendCmd(const AOut: string; const AResponse: Array of SmallInt): SmallInt; virtual; overload;

Parameters

const AOut: string

Command to be sent to the server.

const AResponse: SmallInt = -1

Numeric response expected. Default is -1. (Array of SmallInt for multiple responses allowed)

Отсюда следует что ни каких кавычек во втором параметре нет и по сути быть не должно. У тебя Делфи ругается что не правильный параметр передаешь, Замени кавычки на скажем -1 и будет счастье.

 

Поскольку я понимаю ьы все равно не поймешь еще пару проблем то вот:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  sck:TIdTCPClient;
  st : String;
begin
  sck:=TIdTCPClient.Create(nil);
  try
    sck.Host:='127.0.0.1';
    sck.Port:=9051; //ControlPort 9799
    sck.Connect;
    sck.SendCmd('AUTHENTICATE',-1);
      sck.SendCmd('SIGNAL NEWNYM',-1);
  finally
    sck.Free;
  end;
end;

Меняет айпи програмно через Tor, ясен пень тор должен быть включен перед сменой айпи. К слову порт который в коде ставится в видалии, по стандарту я написал но можешь написать любой другой.