BigInteger wie, mult;
if (IsSimple) //если число простое
 {
   wie = 2; //по формуле
   wie = BigInteger.Pow(wie, i - 1); //возводим в степень
   wie = BigInteger.Subtract(wie, BigInteger.One); //от возведённого числа отнимаем единицу
   mult = BigInteger.Multiply(i, i); //по формуле
   if (BigInteger.Remainder(wie, mult) == 0) //если остатка при делении нет, значит число Вифериха
     //вывести число на экран
 }

function IsWieferichNumber(Number: integer): boolean;
var
  Dividend, Divisor: integer;
begin;
  Divisor:=Number*Number;
  Dividend:=0;
  dec(Number);
  repeat;
    Dividend:=Dividend+Dividend+1;
    if Dividend>=Divisor then Dividend:=Dividend-Divisor;
    dec(Number);
    until Number<=0;
  Result:=(Dividend=0);
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin;
  for i:=1 to $7FFF do if IsWieferichNumber(i) then Memo1.Lines.Add(IntToStr(i));
  Memo1.Lines.Add('done');
  end;