Optimierung eines Stück Codes für eine Wette!

[R2009]

Hi DP'ler,
ich habe mich dazu verleiten lassen zu behaupten, dass ich dieses Programmstück mindestens doppelt so schnell bekomme wie
ein vergleichbares Stück Code in VB.
Seht ihr noch Optimierungsmöglichkeiten?
Das Ganze ist recht primitiv und berechnet Primzahlen. Die Vorgehensweise ist vorgegeben. Am Algorithmus kann ich nur bedingt etwas ändern.
Das ganze Programm hängt an. Für 1000000 benötigt VB 22 Sekunden und das Teil hier 19.

Delphi-Quellcode:

procedure Tfrm_Hauptform.btn_RechneClick(Sender: TObject);

{ ################################################################################################################################## }

var
D               : cardinal;
flg_NoPrim      : Boolean;

Anfg_Zeit       : TDateTime;
Ende_Zeit       : TDateTime;
Diff_Zeit       : TDateTime;

I               : cardinal;
r               : cardinal;
{ ################################################################################################################################## }

begin

max_Prim := StrToInt(txt_MaxZahl.Text);
setlength(prim,1000000);
Prim[1] := 2;
Prim[2] := 3;
Prim[3] := 5;
anz_Prim := 3;

lst_Ausgabe.Clear;
lst_Ausgabe.Items.Add('Suche Primzahlen ..');
lst_Ausgabe.Items.Add('Start:     ' + DateTimeToStr(Now));
lst_Ausgabe.Refresh;

Anfg_Zeit := Now;

For D := 6 To max_Prim do
  begin

    flg_NoPrim := FALSE;
    I := 1;

    repeat
      begin
        r:=D mod Prim[I];
        If r = 0 Then flg_NoPrim := TRUE;
        inc(i);
      end;
    until (flg_NoPrim OR (I = anz_Prim));

    If   flg_NoPrim=false then
         begin
           anz_Prim       := anz_Prim + 1;
           Prim[anz_Prim] := D;
         {lst_Ausgabe.Items.Add(IntToStr(D) + ' ist eine Primzahl!'); }
         end;
end;

Grüsse
Rainer