error:=true;
while error do
 begin
  error:=false;
  try
   http.post;
  except
   error:=true;
   берем другую прокси;
  end;
end;