Darstellung Memo Box?

[dustz33]

Danke schonmal für die schnellen Antworten, anbei der Quelltext, vielleicht hilft der uns weiter.

Code:

procedure TForm1.BerechnenClick(Sender: TObject);
var
  zahl  : array[2..100] of integer;
  p,i,v : integer;
begin
  
  
  for i := 2 to 100 do zahl[i] := i;
  p := 2;
  while p <= 100 do
  begin
    
    v := 2;
    while v*p <= 100 do
    begin
      zahl[v*p] := 0;
      v := v+1;
    end;
    
    i := p+1;
    while (i<=100) and (zahl[i] = 0) do i := i + 1;
  
    p := i;
  end;

  
  for i := 2 to 1000 do
    if zahl[i] > 0 then
      AusgabeBox.Lines.Add(IntToStr(i));
end;