if Length(IntToStr(tmpszam))>9 then
begin
Result:=\'A szám túl nagy\';
exit;
end;
tmpint:=tmpszam div 1000000;
if tmpint<>0 then
begin
tmpstr:=tmpstr+szazas(tmpint);
if szam mod 1000000 > 0 then tmpstr:=tmpstr+\'millió - \'
else
begin
Result:=tmpstr+\'millió\';
exit;
end;
end;