optimierung bei ersetzen in Richedit

[glkgereon]

hi

ich hab einen text in etwa diesem format:

Zitat:

abcde fghasd
sdgf sdgfkghsd sdahfksd

und will den in dieses format umwandeln:

Zitat:

hsdkfh sdhfkhsdkfh sdhfkjsdhfksah
sdgfjghsdf sdahfksahdf sadfhksadf

soll heissen: ich hab buchstaben/zahlenpäckchen, und will sämtliche überflüssigen leerzeichen entfernen

das wollte ich so machen:

Delphi-Quellcode:

for i:=1 to length(Richedit1.lines.text) do
   begin
   if Richedit1.lines.text[i]=' '
   then if Richedit1.lines.text[i+1]=''
        then Richedit1.lines.delete(i);
   end;

das if...then if...then statt if ... and ... then
hab ich aus schnelligkeitsgründen gemacht...

so müsste doch funzen, oder?

jetzt mein problem: bei einem langen text brauch der ziemlich lange, um zu überlegen, was jetzt richedit1.lines.text ist...

der hammer ist: der text auf den ich das anwenden will ist 400 Millionen Zeichen lang!!!

kann man das anders machen?