Delphi-Quelltext erklären

[Tygrezz]

Hallo,

kann mir jemand den folgenden Quelltext von hier erklären?

function prim(zahl:integer):boolean;
var i:integer;
begin
result:=true;
for i:=2 to round(sqrt(zahl)) do
if zahl mod i=0 then
result:=false;
end;

procedure tform1.button1click(sender: tobject);
var i:integer;
begin
listbox1.clear;
for i:=2 to strtoint(edit1.text) do
if prim(i)=true then
listbox1.items.add(inttostr(i));
form1.caption:=inttostr(listbox1.items.count);
end;

end.

Das ganze ist für ein Programm, welches mir Primzahlen ausgeben soll. Aber so richtig weiß ich damit wirklich nichts anzufangen. Wer kann mir helfen?

Viele Grüße,
Tygrezz.

[Christian Marquardt]

Wenn der Button geklick wird, wird die Listbox1 gelöscht. Dann wird eine Schleife abgearbeitet, die von 2 bis zu dem nummerischen Wert in Edit1 läuft. Diese Schleife ruft die Funktion prim mit dem aktuellen Schleifenwert auf. Ergibt dei Rückgabe der Funktion true, wir der aktuelle Schleifenwert in die Listbox1 aufgenommen. Zum Schluß erhält die Überschrift des Fensters die Anzahl der Einträge in der Listbox

Die Funktion prim

beruht auf

http://de.wikipedia.org/wiki/Sieb_des_Eratosthenes