вывод незначащих нулей спереди

[BBOBAHH]

Привет всем . мне надо чтоб число 22 (любое число от 0 до 9999) отображалось в формате 0022 (обязательно 4 цифры), тоесть надо выводить незначащи нули спереди при необходимости.
Помогите советом , я ЧАЙНИК в ДЭЛФИ. За ранее спасибо.

[Utkin]

Цифры всегда целые?

[russian-stalker]

procedure TForm1.Button1Click(Sender: TObject);
begin
while length(edit1.Text)<4 do
edit1.Text:='0'+edit1.Text;
end;

[Utkin]

edit1.Text:='0'+edit1.Text;

Ему нада дву нуля .

edit1.Text:='00'+edit1.Text;

[BBOBAHH]

Сообщение от Utkin

Цифры всегда целые?

Да, цифры всегда целые

[BBOBAHH]

Сообщение от Utkin

Ему нада дву нуля .

edit1.Text:='00'+edit1.Text;

не всегда два нуля, если ввожу в EDIT 3 , то в LABEL должно отобразиться (по buttonclick) 0003, или ввожу 300, то должно показать 0300, или ввожу 3000, то должно показать 3000... во как

[Utkin]

procedure TForm1.Button1Click(Sender: TObject);
var
        x: Integer;
begin

       // Здесь ставишь свою цифру
      x:=99;
     
      // Вывод на метку
      Label1.Caption:='00'+IntToStr(x);
end;

[russian-stalker]

Мой код вполне рабочий. И добавляет нужное кол-во нулей.
можно и так:
var
i:integer
begin
i:=666;//Своё число
while length(inttostr(i))<4 do
i:=strtoint('0'+inttostr(i));
Showmessage(inttostr(i));
end;

[BBOBAHH]

а чего-то виснет ваш код.. у меня Делфи 7..

[JTG]

ShowMessage(format('%.4u',[random(999)]));