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....