tmpszam:=tmpszam-(tmpint*1000000);
tmpint:=tmpszam div 1000;
if tmpint<>0 then
begin
tmpstr:=tmpstr+szazas(tmpint);
if (szam > 2000) and (tmpszam mod 1000 <> 0) then tmpstr:=tmpstr+\'ezer - \'
else
begin
tmpstr:=tmpstr+\'ezer\';
if tmpszam mod 1000 = 0 then
begin
Result:=tmpstr;
exit;
end;
end;
end;