Количество знаков при вставке числа

[sergey113]

Не придумаю как сделать так чтобы при вставке номера из Delphi в excel у меня не терялись количество знаков в последней части составного номера.
Формирую массив случайных чисел так:

for i:=0 to StrToInt(Edit1.Text)-1 do
    begin
    Randomize;
    z:=IntToStr(Random(1000));
    ar_rand1[i]:=z;
    end;

получаются числа разного количества знаков
Формирую составной номер так:

Ap.Cells[18+i,5].Value:=  ar_baz[2]+'-'+ar_baz[3]+'-'+ar_rand1[i];

и получаю косяк в виде чисел разной длинны, а нужно одинаковой, чтобы недостающие знаки дополнялись нулями.
Как это обычно делают ?