Zahl auf Primzahl prüfen

[Lyan]

Hallo...

ich habe eine Form die per Knopfdruck Zahlen von 1-100 aausgibt. Also man kann in einer Radiogroup auswählen ob man z.B nur gerade Zahlen ausgegeben haben möchte oder nur ungerade oder alle zahlen... jetzt würde ich gerne eine überprüfung durchgehen die mir sagt ob es eine Primzahl ist!.


Ein Beispiell war das hier:

Code:

2: begin    // Case index 2 (UNGERADE ZAHLEN)
        if checkboxnachrechts.Checked AND checkboxnachunten.checked then
         ShowMessage('Bitte wählen sie nur eine Checkbox aus!')
        else
        begin
          if checkboxnachunten.Checked then
          begin
            i := 1;
              repeat
                inc(i, 2);
                memozahlen.Lines.Add(inttostr(i));
              until (i >= 100);
          end
          else
          begin
            if checkboxnachrechts.checked then
            begin
              i := 1;
              while i < 98 do
              begin
                inc(i, 2);
                s := s + inttostr(i);
                if i <> 99 then
                  s := s + ', ';
              end;
             memozahlen.Lines.Add('1, ' + s);
            end;
          end;
        end;
       end;

(Das war das Beispiel für ungerade Zahlen)

Jemand ne idee?