Obtener un dígito en una posición

[[AgustinOrtu]]

Empezado por BDWONG

Código Delphi [-]
function DigitAtPos(N: DWord;K:Byte): Dword;
begin
 Result:=0;
 if (N>=K) and (K>0) then
    Result:=ord(IntToStr(N)[k])-$30;
end;

begin
   WriteLn(DigitAtPos(1248935,4));
   ReadLn;
end.

Ese codigo lo veo y no entiendo nada es como si estuviese cifrado.. es peor que leer C

Fuera de bromas, realmente no lo entiendo, en donde esta el "truco"?