[Admin]

Используй FormatFloat:

Код:

var
 i: integer;
begin
 Memo1.Clear;

 for i := 0 to 10000 do
   Memo1.Lines.Add(FormatFloat('00000', i+1))
end;