DELPHI : Funktion für Ursprungliche String

[Gandimann]

Hello Freunde,
ich versuche dieser Funktion genau umgekehrt mit Delphi zu schreiben leider krige ich nicht hin kann bitte jemand mal schauen ?

Function StrToLong(const S: AnsiString): LongWord;
var
i: Integer;
begin
Result := 0;
for i := 1 to Length(S) do
Inc(Result, Ord(S[i]) shl (32 - 8*i))
end;


Also ich versuche LongToStr darus zu machen sodass man ursprunglicher String wieder erhält.
Mit visual basic habe ich so realiziert aber braue jetzt in Delphi:

Public Function ToString(ByVal L As Long, n As Integer) As String

' Convert a long value to a string, left padded with chr$(0)

Dim s As String
Dim i As Integer
s = ""
Do While L > 0
i = l Mod 256
s = Chr$(i) & s
L = CLng((L - i) / 256)
Loop
ToString = Right$(String$(n, Chr$(0)) & s, n)
End Function


Mit Delphi bekomme ich leider nicht hin !!!!

Can you please help me ?!!