TMemo ist nicht besonders schnell, aber Du wirst vermutlich ein bessers Ergebniss bekommen, wenn Du mit BeginUpdate und EndUpdate das Zeichnen der Einzelzeilen vermeidest.
Delphi-Quellcode:
Ergebniss.Lines.BeginUpdate;
try
Ergebniss.Lines.Clear;
i := 0;
while i < Length(Primzahlen)
do begin
Ergebniss.Lines.Add(IntToStr(Primzahlen[i]));
i := i + 1;
end;
finally
Ergebniss.Lines.EndUpdate;
end;
N.B. Da TMemo auch nicht unendlich viel Text verwalten kann (die Grenze lag, glaube ich bei 32KByte (?)) wirst Du eventuell nicht alle Primzahlen sehen können.