Como obtengo numeros primos ?

[kdemia]

hace mucho hice un programa que saque numeros primos

Código Delphi [-]
numero:=3;//se sobre entiende que el 2 es primo
while (numero <= numeroFinal) do//hasta un numero vemos cuales son primos
begin
   esPrimo:= numero mod 2 <> 0;
   compara:= 3;
   while (compara <= sqrt(numero) and esPrimo)do
  begin
    esPrimo:= numero mod compara <> 0;
    inc(compara,2);
  end;
  if esPrimo then showmessage(IntToStr(numero));
  inc(numero,2);
end;