Textausgabe in Memo sehr langsam

[user64629]

Hallo liebes Forum,
diesmal habe ich eine recht simple Frage. Ich habe ein Programm zu Primzahlberechnung geschrieben, mit dem ich mit dem Standardverfahren die Primzahlen von 1 bis 1 Millionen in einer Sekunde errechne (wahrscheinlich normal).
Jetzt will ich die Ergebniss natürlich ausgeben lassen, indem ich ein Memo auf dem Formular habe und bei dem in jede Zeile eine Primzahl soll.
Dabei ist mir aufgefallen, dass das circa 2 Minuten dauert. Gibt es da irgendetwas schnelleres? Hier mal der Auszug:

Delphi-Quellcode:

var i: UInt64
    Primzahlen: Array of UInt64
begin
 Ergebniss.Lines.Clear;
 i := 0;
 while i < Length(Primzahlen)
  do begin
      Ergebniss.Lines.Add(IntToStr(Primzahlen[i]));
      i := i + 1;
     end;

Kann ja nicht sein, dass deswegen das ganze Programm uneffektiv wird...