Utrzymanie ilości cyfr w wyświetlanej liczbie

Witam

Mam drobny problem.
Mam wyświetlić liczby od 1 do 1000 w postaci liczb 4 cyfrowych. Czyli chcę otrzymać 0001-1000.

Czy jest jakaś funkcja która to zmieni czy muszę ją napisać sam?

Czy mozna użyć tej funkcji? W przypadku gdy operuję tylko na Integerach? Czy to będzie strata pamięci?

procedure TForm1.Button1Click(Sender: TObject);
var
i1,i2,i3 : Integer;
s1,s2,s3 : String;
f1 : double;
begin

s1 := Edit1.Text;
f1 := Strtofloat(s1);
Edit2.Text := FormatCurr('0000', f1);


end;

Edit2.Text := Format('%.4d', [10{tutaj jakiś integer}]);