Completar campo con zeros

[[sitrico]]

Te dejo las funciones:

Código Delphi [-]
Function FullZero(s:String;lon:Integer):String; Overload
Function FullZero(s:Int64;lon:Integer):String; Overload

Function FullZero(s:String;lon:Integer):String; Overload

Var
t : String[255];
Begin
t := StrRepli('0',lon)+trim(s);
t := Copy(t,Length(t)-lon+1,lon);
Result := t;
End;

Function FullZero(s:Int64;lon:Integer):String; Overload

Begin
Result := FullZero(IntToStr(s),lon);
End;

Function StrRepli(c:Char;lon:Integer):String;
Var
s : String[255];

Begin
If Lon < 0 then lon := 0;
If Lon > 255 Then Lon := 255;
FillChar(s,SizeOf(s),c);
SetLength(s,Lon);
Result := s;
End;

Aunque estoy seguro que son fuertes candidatas para este post
http://www.clubdelphi.com/foros/showthread.php?t=41240