Esa función te dice si un número es primo o no.
Código Delphi
[-]function esPrimo(x : integer) : boolean;
var
i,r : longint;
begin
r:=round(sqrt(x));
for i:=2 to r do
if (x mod i=0) then
begin
result:=false;
exit;
end;
result:=true;
end;
Ahora tendrás que adaptarla a tu código