Kann das jemand bitte in delphi übersetzen:


function new_coord($x,$y)
{
$x = (string) (($x + 250) / 0.5);
$y = (string) (($y + 250) / 0.5);

if($x < 0 || $y < 0) {
return false;
}

return array('con' => substr($y, 0, 1).substr($x, 0, 1), 'sec' => substr($y, 1, 1).substr($x, 1, 1), 'sub' => substr($y, 2, 1) / 2 * 5 + substr($x, 2, 1) / 2);
}