As you didn't tell what the code is for I couldn't test it. A direct translation should be:
Delphi-Quellcode:
function FlashG(fromINT, toINT: Integer):
String;
var
PPP,
OOP: Integer;
begin
Result := '
';
PPP := toINT;
while PPP < fromInt
do
PPP := PPP * toINT;
repeat
OOP := fromInt
div PPP;
Result := Result + Chr(Ord('
K') +
OOP);
fromInt := fromInt - PPP *
OOP;
PPP := PPP
div toInt;
until PPP <= 0;
end;
The naming conventions are different in Delphi but I didn't change it.