Как добавить нули перед числом, чтобы длина числа получилась 8?

[artemavd]

Сабж. На вход подается число любой длины: она может быть равна 1 символу, может 2м, может 3м, может 4м, может 5ти, может 6ти, может 7ми. Нужно, чтобы перед введенным число ставилось такое количество нулей, чтобы общая длина числа получилась равна 8 символам, т.е. Length(полученного числа) = 8.

Что написать вместо комментария?

procedure TForm1.btn21Click(Sender: TObject);
var
  i: Integer;
begin
 if Length(Form1.sEdit2.Text) < 8 then
 begin
   for i:=1 to Length(Form1.sEdit2.Text) do
   begin
    //äîáàâèòü íóëè ïåðåä ÷èñëîì, ÷òîáû îáùàÿ äëèíà ïîëó÷èëàñü = 8
   end;
 end;
end;

[Аватар]

if Length(Form1.sEdit2.Text) < 8 then
  sEdit2.Text:=StringOfChar('0',8-Length(sEdit2.Text))+sEdit2.Text;

[ReportCube]

FormatFloat('0000000#',n), где n - Ваше число