type
  PrimeNumbers = Array [byte] of integer;


function GetPrimeNumbers: PrimeNumbers;
var
  counter, number: integer; // текущий номер простого числа и само число
  i: integer; // счетчик цикла
  flag: boolean;
begin
  counter := -1;
  number := 2;

  while (counter < 255) do
    begin
      flag := true;

      if counter >= 0 then // у меня в Delphi 7 под Win7 некорректно отрабатывает 
                           //цикл for, если второй индекс меньше первого.
                           // возможно  проблема исключительно моей системы
        for i := 0 to counter do
          if (number mod Result[i] = 0) then
            begin
              flag := false;
              break;
            end;

      if flag then
        begin
          inc(counter);
          Result[counter] := number;
        end;

      inc(number);
    end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  Numbers: PrimeNumbers;
  i: integer;
begin
  Numbers := GetPrimeNumbers;

  for i := 0 to 255 do
    Memo1.Lines.Add(IntToStr(Numbers[i]));
end;