Для того, чтобы установить строку не менее определенной длины, нужна функция StringLength.

function StringLength(s: string; len: integer; c: char; right: boolean = false): string;
begin
   while Length(s)<len do
      if right then
         s:=s+c else
         s:=c+s;
   Result:=s;
end;

где:

• s – исходная строка;
• len – минимальное количество символов;
• c – заполнитель;
• right – с какой стороны заполнять: false – слева, true – справа.

Например,

• StringLength('85672', 7, '0') выведет '0085672';
• StringLength('пианино', 10, '!', true) выведет 'пианино!!!'.