[Delphi] ClientSocket i Zmiana tożsamości w sieci Tor

Witam,
mam taki kodzik

procedure TForm1.Button1Click(Sender: TObject);

Begin

  ClientSocket1.Host:= '127.0.0.1';
  ClientSocket1.Port:= 9051;
  ClientSocket1.Active := true;
  Label2.Caption := 'jest polaczenie :-)';

end;


procedure TForm1.Button2Click(Sender: TObject);
begin
webbrowser1.navigate(Edit1.text);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 if ClientSocket1.Socket.Connected then
      begin
      ClientSocket1.Socket.SendText('AUTHENTICATE kurwa\r\n');
      ClientSocket1.Socket.SendText('signal NEWNYM\r\n');
      Label2.Caption := 'Wykonano zapytanie';
      end
       else
         begin
           Label2.Caption := 'Problem';
         end;
end;

Nie wiem dlaczego po kliknięciu w button 1 i 3 nie jest zmieniane IP w torze.

Jeżeli mam na localu postawionego apache + php to taki kod php ładnie zmienia tożsamość:

<?
function tor_new_identity($tor_ip='127.0.0.1', $control_port='9051', $auth_code='"kurwa"'){
	$fp = fsockopen($tor_ip, $control_port, $errno, $errstr, 30);
	if (!$fp) return 1; 
 
	fputs($fp, "AUTHENTICATE $auth_code\r\n");
	$response = fread($fp, 1024);
	list($code, $text) = explode(' ', $response, 2);
	if ($code != '250') return 0; 
 
	fputs($fp, "signal NEWNYM\r\n");
	$response = fread($fp, 1024);
	list($code, $text) = explode(' ', $response, 2);
	if ($code != '250') return 3; 
 
	fclose($fp);
	return 4;
}

echo tor_new_identity();
?>

Z góry dziękuję za pomoc.

Pozdrawiam.