Synapse, код ошибки пустой

while numberrr < 100 do //цикл 
   begin
 
    FSend.MimeType :='application/x-www-form-urlencoded';  // FSend - thttpsend
    TT.Clear;                                                                  // TT - TStringList
    TT.Add('authenticity_token='+auth_token);                    //добавляем нужные параметры
    TT.Add('tweet[text]=proverka');                                   //добавляем нужные параметры
    TT.Add('commit=Òâèòíóòü');                                         //добавляем нужные параметры
 
    Post('https://сайт', TT);            //функция Post ниже.
     inc(numberrr);
    sleep(10000);
  end;

function tmythread.POST(AUrl: string; AParams: TStringList): string;
  var Stream: TStringStream;
      RedirectUrl: string;
      i: integer;
begin
  try
    Stream:=TStringStream.Create('');
    try
      FSend.Headers.Clear;                 //fsend - httpsend
      FSend.Document.Clear;
      if FReferer<>'' then FSend.Headers.Add('Referer: '+FReferer);
      for i := 0 to AParams.Count-1 do
      if i=0 then
        Stream.WriteString(AParams[i]) else
          Stream.WriteString('&'+AParams[i]);
      FSend.Document.LoadFromStream(Stream);
      if FSend.HTTPMethod('POST',AUrl) then                       //~~~~~~~~~ Вот именно на этой строчке появляется ошибка, точнее не ошибка появляется, а просто запрос не выполняется, и возвращает ошибку без кода. код - ""
      begin
        FSend.Document.SaveToStream(Stream);
        Result:=Stream.DataString;
        RedirectUrl:=GetRedirectUrl;             //GetRedirectUrl - функция для получение редиректа, тут не играет никакой роли
        if RedirectUrl<>'' then
          Result:=GET(RedirectUrl);                       //get - функция для гет запроса, но тут не играет никакой роли
      end else raise Exception.Create(GetError);
    finally
      Stream.Free;
    end;
  except
    on E: Exception do
      raise Exception.Create('TDHttp.POST('+AUrl+'): '+E.Message);
  end;
end;

procedure Tbymorgun.Timer1Timer(Sender: TObject);
var
  PostData: string;
begin
  if auth_status = true then begin
 
    http.FSend.MimeType :='application/x-www-form-urlencoded';     
    T.Clear;
    T.Add('authenticity_token='+auth_token);
    T.Add('tweet[text]=test');
    T.Add('commit=Òâèòíóòü');
 
    http.Post('https://сайт/', T);    //функция post такая же
     inc(numberrr);
  end else showmessage('Error');
end;