[[seoane]]

Solo añadir que solo tienes que comprobar si es divisible por los números menores a su raíz cuadrada.

Código Delphi [-]
function EsPrimo(x: integer): Boolean;
var
  i: integer;
begin
  for i:= 2 to Trunc(Sqrt(x)) do
    if x mod i = 0 then
    begin
      Result:= FALSE;
      Exit;
    end;
  Result:= TRUE;
end;

Por cierto, esto resulta un poco inútil:

Código Delphi [-]
  until (b=0) or (b<>0);

es broma, espero que no te parezca mal ....