Fehlermeldung "Zu wenig Arbeitsspeicher"

[DerAndereMicha]

Ich hab jetzt mal alles so geändert, wie ich es verstanden hab und bitte hiermit um erneute Überprüfung (ganz im Sinne des Bottom-Up Designs)

Delphi-Quellcode:

function DeleteCommentsNeu(const SQLLines:TStringList):Boolean;
var beg,en,i,Laenge : integer;
var Temp,begStr,enStr:String;
begin
    Laenge:=Length(SQLLines.Text);
    for i:= SQLLines.Count-1 downto 0 do
    Begin
       Temp:=Copy(Trim(SQLLines[i]),1,2);
       if Temp='--' then SQLLines.Delete(i);
    end;

   Temp:=SQLLines.Text;
   while (pos('/*',Temp) <> 0) and
     (pos('*/',Temp)>pos('/*',Temp))  do
   begin
      beg:=pos('/*',Temp);
      en:=pos('*/',Temp);
      if en=0 then en:=Length(Temp);

      begStr:=copy(Temp,1,beg-1);
      enStr:= copy(Temp,en+2,Length(Temp));

      Temp:=begStr+enStr;
   end;
   SQLLines.Text:=Temp;
   Result:=Length(SQLLines.Text)<>Laenge;
end;

Gruß
Micha