[[BlueSteel]]

tambien puedes usar esto

Código Delphi [-]
//Funcion que rellena con Ceros a la Izquierda
function CerosIzquierda(S: String; N: Integer): String;
begin
    Result:=StringOfChar('0',N-Length(S))+S;
end;

y para llamarla solo tienes que hacer esto

Código Delphi [-]

// Dato1 = '0000121'
// Dato2 = '0000005' 
// Edit1 = donde sale el resultado

     Edit1.Text := CerosIzquierda(IntToStr(StrToInt(Dato1)+StrToInt(Dato2)),8);

//como ejemplo.... si quieres mostrar el numero 126 con un largo de 8, solo debes poner el 126 en modo de string 
// y el largo en modo integer
Edit1.Text := CerosIzquierda('126',8);

espero que esto te sirva...

Salu2