noob hjælp

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,math,
  StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function Int2Str(I, Len: Integer): String;
begin
  Str(I, Result);
  for I := Length(Result) to Len -1 do
    Result := '0' + Result;
end;



procedure TForm1.Button1Click(Sender: TObject);
var
  Len, I: Integer;
begin
  Len := Length(Edit1.Text);
  for I := StrToInt(Edit1.Text) to Round(IntPower(10, Len))-1 do
    ListBox1.Items.Add(Int2Str(I, Len));

end;

end.

kunne godt tinke mig at vide hvordan du kom frem til det