"oversættelse" af PHP-kode til delphi

hej eksperter...

jeg kunne godt tænke mig at få lavet følgende PHP-kode til en delphi-kode således jeg kan køre opgaven via et program!

php-koden:
------------------------------------------------------
<?

include("db.php");

$phptime = time();

if ($_GET[type] == 1) { // om det er planlagt, eller fremskudt
    $type = 1;
}
else {
    $type = 0;
}

function hentmicrotime() {
    list($usec, $sec) = explode(" ",microtime());
    return ((float)$usec + (float)$sec);
}

$foresp = mysql_query("SELECT * FROM serv_server ORDER BY host ASC, port ASC") or die(mysql_error());
while($row = mysql_fetch_array($foresp)) {
    $id        = $row["id"];
    $host     = $row["host"];
    $port     = $row["port"];

    $start = hentmicrotime();

    if ($fp = @fsockopen($host,$port,$errno,$errstr,3)) {
        $slut = hentmicrotime();
        $svartid = $slut - $start;
        $respons = substr($svartid,0,6);
       
        fclose($fp);
       
        mysql_query("insert into serv_status (type,host,port,tidspunkt,respons) values ('$type','$id','$port','$phptime','$respons')") or die(mysql_error());
       
        $status .= "<b>" . $host . "</b> blev pinget på port <b>" . $port . "</b> med en svartid på <b>" . $respons . "</b> sek<br>";
    }
    else {
        mysql_query("insert into serv_status (type,host,port,tidspunkt,error) values ('$type','$id','$port','$phptime','$errno')") or die(mysql_error());
       
        $status .= "<b>" . $host . "</b> blev pinget på port <b>" . $port . "</b> men svarede ikke!    Følgende fejlmeddelse fremkom: <b>" . $errstr . "</b><br>";
    }
}
   
if ($type == 0) {
    echo $status;
}

?>
------------------------------------------------------

kan det lade sig gøre? :)

på forhånd tak