Problema al generar primos en Delphi

[XavierAramayo]

Hola,lo que ocurre es que cuando ejecuto mi programa genera el numero de primos que le pedi pero solamente a partir del numero ingresado,es decir,si coloco un valor de n=7, los numero que me muestra son 7 11 13 17 19 23 29, o si ingreso 4 seria 5 7 11 13, lo que yo qeria conseguir era ungresar un numero n,y que me mostrase los n primeros numeros primos pero tengo ese problema,les agradezco de antemano.

el programa es el siguiente

Código Delphi [-]
procedure TForm3.Button1Click(Sender: TObject);
var p,q,r,i,cp,s:integer;  res:string;
  j: Integer;
begin
r:=strtoint(edit1.Text);s:=r;
   p:=2;cp:=0;
while cp menor s do
      begin
       q:=1;
       for i := 2 to s-1 do
          begin
            if p mod i =0 then
                 q:=0;
          end;
       if q=1 then
             begin
               cp:=cp+1;

               p:=p+1;
               res:=res+' '+inttostr(p);
                label1.Caption:=res;
             end
               else
             p:=p+1;
      end;

end;

end.