#define cvt_p2 36 
#define cvt_p3 1296
#define cvt_p4 46656
--тут определяются константы, как это сделать в Дельфи, знаете?
--только лучше запихните их внутрь определения функции "akcvt45"

FUNCTION akcvt45 --как писать функции в Дельфи, знаете?
    PARAMETERS cAK4 --это параметр функции //К.О.
    PRIVATE    n --это внутренняя переменная функции

    IF ISDIGIT(LEFT(cAK4,1)) --если первая цифра параметра - число (как писать ветвление в Дельфи, знаете?)
        RETURN '0' + cAK4 --возвратить "0"+параметр
    ELSE --в противном случае
        n  = 10000 + (                                              ;
            (ASC(UPPER(SUBSTR(cAK4,1,1))) - ASC('A')) * cvt_p4 +    ;
            cvt8n(UPPER(SUBSTR(cAK4,2,1)))            * cvt_p3 +    ;
            cvt8n(UPPER(SUBSTR(cAK4,3,1)))            * cvt_p2 +    ;
            cvt8n(UPPER(SUBSTR(cAK4,4,1)))                          ;
        )
--посчитать взвешенную сумму значений функции функции "cvt8n" от первых 4 символов параметра
             RETURN PADL(n,5,'0') --превратить её в строку, добить строку слева символами "0" до длины в 5 символов и возвратить результат
    ENDIF
* END FUNCTION akcvt45


FUNCTION akcvt89 
--эта функция возвращает (первые 4 символа параметра)+(функцию "akcvt45" от следующих четырёх символов)
--какбе имхо это ясно просто из синтаксиса, тут ничего типичного фоксового вообще нет


FUNCTION cvt8n --возвращает либо число, если символ - числовой
--либо номер по алфавиту+9 (для "А" вернёт 0)

function PADL(Src: string; Lg: Integer): string;
begin
  Result := Src;
  while Length(Result) < Lg do
    Result := ' ' + Result;
end;

ak:=edit1.Text[5]+edit1.Text[6]+edit1.Text[7]+edit1.Text[8];