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!
