String vorne mit Nullen auffüllen

[Walter Landwehr]

Hallo ich möchte ein String mit variabler Länge immer bis zur einer bestimmten Länge vorne mit 0 auffüllen. habe dazu folgende Function:

Delphi-Quellcode:

function FillString(AString: String; AChar: Char; ALength: integer): String;
var i:integer;
begin
  FillChar(Result, ALength, Ord(AChar));
  Result := copy(AString, 1, ALength) + copy(Result, ALength - Length(AString), ALength);
end;

aufrufen der Function:
BelegNr := FillString(BelegNr,'0',9); leider bekomme ich beim Aufruf der function eine Exception. Exception-Klasse $C0000005 mit Meldung 'access violation at 0x0040e4c6: read of address 0x3030302c

was ist da falsch?