DELPHI : Funktion für Ursprungliche String

[Gandimann]

Danke Andreas13,
intToStr war leider nicht einsetzbar.
Ich habe so hinbekommen:

Function LongToStr(L: LongWord; N : integer): String;
var
S: String;
i:integer ;
begin
Result := ' ';
while L > 0 do
begin
i := L mod 256;
s := Char(i) + s ;
L := Round((l-i)/256);
end;
Result := RightStr(StringOfChar(String(Char(0))[1], n)+s, n);
end;