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;