TPW StrToInt IntToStr

function StrToInt(s:char):integer ;
begin
StrToInt := ord(s)-48;
end;

function IntToStr(ii : longint): string;
var s : string[30];
begin
    str(ii, s);
    IntToStr := s;
end;