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:

var
  Form1: TForm1;
  i, bel_zahl, teiler : Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
bel_zahl:= StrToInt (Edit1.Text);
i:=0;
while i < bel_zahl do
begin
inc (i);
if i mod 2 = 1 then
begin
repeat
teiler:= 2;
inc (teiler);
until i mod teiler = 1;
if i mod teiler = 1 then StringGrid1.Cells[0,0]:= IntToStr(i);
end;
end;
end;
end.					

1:

<span class="inlineSyntax"><span class="codecomment">{PROTECTTAG392f9bbdd22c11e32cee508830319298}</span></span>					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

//Falls i ungerade
IF ODD(I) then
  begin....

//Falls Teiler Faktor von i ist
IF ( i mod Teiler = 0) then
  i = keine Primzahl
//oder anders mit 
var
  //....
   KeinePrim : boolean 
//...
  KeinePrim := (i Mod Teiler)= 0					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.Button1Click(Sender: TObject);
begin
bel_zahl:= StrToInt (Edit1.Text);
i:=0;
teiler:= 2;
while i < bel_zahl do

inc (i);

if i mod 2 = 1 then 

repeat
inc (teiler);
until (i mod teiler = 1) or (i mod teiler = 0);

if i mod teiler = 1 then StringGrid1.Cells[0,0] := IntToStr(i);
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.Button1Click(Sender: TObject);
begin
bel_zahl:= StrToInt (Edit1.Text);
i:=0;
teiler:= 2; // muss in die While Schleife
while i < bel_zahl do // kannst du auch ne for-schleife draus machen

inc (i);

if i mod 2 = 1 then // unnötig, aber macht nichts

repeat
inc (teiler); 
until (i mod teiler = 1) or (i mod teiler = 0);

if i mod teiler = 1 then StringGrid1.Cells[0,0] := IntToStr(i);
end;// ^^^^^^ Da wird immer dfie erste Zelle überschriben 

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j: Integer;
  prim: Boolean;
begin
bel_zahl:= StrToInt (Edit1.Text);

for i := 2 to bel_zahl do
begin
  prim := true;

  for j := 2 to i - 1 do
    if i mod j = 0 then
    begin
      prim := false;
      break;
    end;

  if (prim)
    Memo1.Lines.Add(inttostr(i));
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.Button1Click(Sender: TObject);
begin
  bel_zahl := StrToInt(Edit1.Text);
  i := 0;
  teiler := 2;

  while i < bel_zahl do
    inc (i);
  // Hier ist deine Schleife zu Ende

  if i mod 2 = 1 then 
    repeat
      inc (teiler);
    until (i mod teiler = 1) or (i mod teiler = 0);

  if i mod teiler = 1 then
    StringGrid1.Cells[0,0] := IntToStr(i);
end;

end.					

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

  while i < bel_zahl do
  begin
    inc (i);

    if i mod 2 = 1 then 
      repeat
      ...
  end;					

1:
2:
3:
4:
5:
6:

// statt
if i <= Sqrt(Zahl) then

// teste doch einfach das, das ist sowieso viel schneller:

if i * i <= Zahl then					

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

var
  t1, t2, freq: Int64;
           res: Extended;
begin
  QueryPerformanceCounter(t1);
  // Code
  QueryPerformancrCounter(t2);
  QueryPerformanceFrequency(freq);
  res := (t2 - t1) / freq * 1000; // ergibt die benötigte Zeit in ms