Ayudad Con código delphi

[wolkelyn]

consegui este codigo que deberia hacer lo que deseo de la completar con 0 los numero del 1 al 9 ejemplo 01,02,03,04etc

function CompletarCodigo(const sCodigo: string; const iDigitos: Integer): string;
begin
Result := StringOfChar('0', iDigitos - Length(sCodigo)) + sCodigo;
end;