Генерация простых чисел

var x,y:longint;
begin
for x:=0 to 28 do
 begin
  y:=2*x*x+29;
  write(y:8);
 end;
readln
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var x,p,i,j,k:integer;
    f:boolean;
begin
k:=0;
for x:=0 to 28 do
 begin
  p:=2*x*x+29;
  Memo1.Lines.Add(IntToStr(p));
  f:=true;
  i:=2;
  while(i*i<=p)and f do
  if p mod i=0 then f:=false
  else i:=i+1;
  if f then k:=k+1;
 end;
if k=29 then Memo1.Lines.Add('Все числа простые')
else Memo1.Lines.Add('Не все числа простые, равенство неверное')
end;
end.

procedure TForm1.Button1Click(Sender: TObject);
var i,n,q:integer;
begin
 
 
  for i:=-1 downto -7 do
  begin
  q:=2*i*2+29;
  Memo1.Lines.Add(IntToStr(q));  end;
 
 
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,n,q:integer;
begin
 
 
  for i:=0 to  28 do
  begin
  q:=2*i*2+29;
  Memo1.Lines.Add(IntToStr(q));  end;
 
 
end;