1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

...
TDynBoolArray=array of Boolean;
...
implementation

procedure Sieb(max:integer);
var i,k:integer;
begin
  SetLength(feld,max-2);
  For i:=2 to max do feld[i-2]:=true;
  For i:=2 to round(sqrt(max)+1) do
        For k:=i to round(max/i) do
           feld[i*k]:=false;
end;

procedure TForm_Sieb.Button1Click(Sender: TObject);
var max,err,i:integer;

begin
val(Sieb_ED_max.text,max,err); {Sieb_ED_max ist ein Edit-Feld}
if err<>0 then ShowMessage('Fehlerhafte Eingabe!') else
  if max > 1 then begin
      Listbox1.Clear; {LB löschen}
      Sieb(max);
      for i:=2 to max do if feld[i-2] then Listbox1.Items.Add(inttostr(i));
                  end
  else ShowMessage('Nur Zahlen größer 1 eingeben!');
end;

procedure TForm_Sieb.FormClose(Sender: TObject; var Action: TCloseAction);
begin
setlength(feld,0);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure Sieb(max:integer);
var i,k:integer;
begin
  SetLength(feld,max-2); // <--<<
  For i:=2 to max do feld[i-2]:=true;
  For i:=2 to round(sqrt(max)+1) do
        For k:=i to round(max/i) do
           feld[i*k]:=false;
end;