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;

Program Bilangan Prima Dengan Bahasa CPP C++

// Menentukan deret bilangan Prima

#include <iostream.h> //fungsi cin & cout
#include <conio.h> //fungsi getche
main()
{
int batas, x, cek, i;
cout<<"PROGRAM DERET BILANGAN PRIMA"<<endl<<endl;
cout<<"Batas dari Deret Bilangan Prima : ";
cin>>batas;
cout<<endl;
cout<<"Deret Bilangan Prima sampai angka "<<batas<<" adalah: "<<endl<<endl;

for (x = 2; x<=batas; x++)
{ cek = 0;
for (i = 2; i < x; i++)
{ if (x % i == 0)
{ cek = 1;
}} if (cek == 0)
{ cout<<x<<", ";
}}
{
cout<<endl<<endl<<endl;
}
getch();
}