[marto]

function EsPrimo(Num: Integer): integer;
var
               temp, i, integer;
               enc: boolean;
begin
i := 2;
enc := false;
while (i < N - 1) and not Enc do begin
	temp := N;
	while Temp > 0 do Temp := N - i;
	if N = 0 enc := true;
	Inc(i);
end;
return Enc;
end;

No lo he probado, pero eso debería funcionar.