[AGAG4]

Te paso la siguiente función ya tu la Revisarás para manipularla, esta misma te agrega ceros a la derecha:

Código Delphi [-]
function AgregarCeros(texto:String; longi:byte):String;
var x,y:byte;
begin
  x:=longi-length(texto);
  if length(texto)then begin
    result:=texto;
    for y:=1 to x do
      result:='0'+result;
  end else result:=texto;
end;

Saludos....