Uma forma simples para se completar um número com zeros à esquerda é usar a função FormatFloat, como mostra este exemplo:

S := FormatFloat('000000', 5);

Se preferir, poderá escrever uma função, semelhante a estas abaixo:

function StrZero1(const Value: Integer; const Len: Byte): string;
var
  PadLen: Integer;
begin
  Result := IntToStr(Value);
  PadLen := Len - Length(Result);
  if PadLen > 0 then
    Result := StringOfChar('0', PadLen) + Result;
end;

function StrZero2(const Value: Integer; const Len: Byte): string;
begin
  Result := FormatFloat(StringOfChar('0', Len), Value);
end;

Exemplo de uso

var
  Numero1, Numero2: Integer;
  S1, S2: string;
begin
  Numero1 := 10;
  Numero2 := 300;
  S1 := StrZero1(Numero1, 6);
  S2 := StrZero2(Numero2, 8);
  ShowMessage(S1 + #13 + S2);
end;