Fórum ics depois do post não recebo resposta #309811

{ Esse COMANDO USO PARA ENVIAR O POST }
  PostConector.Abort;
   Comando := ´meus dados bla bla bla bla´;
   Comando := StringReplace(Comando,´ ´,´+´,[rfReplaceAll]);
   PostData := TMemoryStream.Create;
   PostData.Write(Comando[1],length(Comando));
   PostData.Seek(0,soFromBeginning);
   PostConector.SendStream    := PostData;
   PostConector.URL           := ´meu site´
   PostConector.Post;
   PostData.Free;
{FIM DO POST}


Agora aqui eu fico aguardando a resposta e nada :( 

procedure TfrmSpam.PostConectorDocData(Sender: TObject; Buffer: Pointer;
  Len: Integer);
var
   arq : string;
begin
  arq := String(Buffer);
  Buffes := Buffes + arq;
end;

procedure TfrmSpam.PostConectorDocBegin(Sender: TObject);
begin
   Buffes := ´´;
end;

procedure TfrmSpam.PostConectorDocEnd(Sender: TObject);
begin
  if AnsiPos(LowerCase(´</html>´),LowerCase(Buffes)) >0 then
  begin
      PostConector.Abort;
      StartProg(Buffes);  
  end;
end;