Mencari Bilangan Prima Dengan Delphi Lengkap Source code

Tidak perlu panjang lebar, anda mencari kode source code logika untuk membuat sebuah deret bilangan prima dengan delphi 6 atau delphi 7? ini langsung aja source kodenya. maaf belum sempat membuat previenya. Semoga cukup membantu.

procedure TForm1.Button1Click(Sender: TObject);
var I,X,Y,J,W:integer;
begin
ListBox1.Items.Clear;
J:=strtoint(edit1.Text);
for I:=1 to J do
begin
X:=0;
FOR W:=1 TO I do
BEGIN
Y:=I Mod W;
if Y=0 then X:=X+1
END;
if X=2 then
ListBox1.Items.Add(inttostr(I));
end;
end;