Help!

[zeox]

Bueno, gracias por todos sus comentarios, aqui les muestro los algoritmos que use para salucionar el problema.

Var
A,B,C:longint;
D:boolean;

begin
A:= strtoint(edit1.text);
D:=False;

for B:=2 to (A div 2) do Begin
C:=A;
Repeat
C:=C-B;
Until C<=0;
if C=0 then
D:=True;
end;

if D then
label2.caption:='El Número no es Primo'
else
label2.caption:='El Número es Primo';
end;

{Recuerden que soy nuevo en el Mundo de la Programación, soy estudiante de Ingeniería de Petróleo y también soy nuevo en el mundo de la programación.}

//Thanks!