luanma:=TStringStream.Create('', TEncoding.UTF8);
application.ProcessMessages ; sleep(100);application.ProcessMessages ; sleep(100);

if random(2)=0 then begin idhp.Get('http://z.0370hqw.com/name/name_get.php?gender=f',luanma);application.ProcessMessages;
sleep(100);application.ProcessMessages;