1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

funktion1(1,true);
{
y := z;
{
showmessage('hallo');
x := 'ist egal';
}
}
for i := 0 to 12 do 
begin
  funktion5(1,'lala');
end;
{
showmessage('noch einer');
x := machwas;
}                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

function RemoveComments(const Str:string):string;
var p1,p2:integer;
begin
 Result:=Str;
 while pos('{',Result)<pos('}',Result) do begin
  p1:=pos('{',Result);
  p2:=pos('}',Result);

  Delete(Result,p1,p2-p1+1);
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 with Memo1.Lines do Text:=RemoveComments(Text);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

funktion1(1,true);   
   
}   
for i := 0 to 12 do    
begin   
  funktion5(1,'lala');   
end;   
{   
showmessage('noch einer'); 
  
x := machwas;   
}                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

function RemoveComments(Str:string):string;
var p1,p2:integer;
begin
 Result:='';
 while length(Str)>0 do begin
  p1:=pos('{',Str);

  if p1>0 then begin
   Result:=Result+copy(Str,1,p1-1);
   Delete(Str,1,p1-1);
  end else begin
   Result:=Result+Str;
   Str:='';
  end;

  p2:=pos('}',Str);
  if p2>0 then Delete(Str,1,p2);
 end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function EntferneKommentare(s: String): String;
var
  KlammerZaehler: Word;
  i             : LongWord;
begin
  KlammerZaehler := 0;
  for i := Length(s) downto 1 do begin
    if s[i] = '}' then
      inc(KlammerZaehler)
    else
    if s[i] = '{' then
      dec(KlammerZaehler);

    if (KlammerZaehler > 0) or (s[i] = '{') then
      Delete(s, i, 1)
  end;
  Result := s
end;                    

1:
2:
3:
4:
5:
6:
7:

{
1
{
2
}
1
}                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

function RemoveComment(Str:string):string;
const SD = '''';
var pS,pC:integer;
begin
 Result:='';
 while length(Str)>0 do begin
  pC:=pos('{',Str);
  if pC=0 then begin
   // Nothing to do
   Result:=Result+Str;
   Str:='';
  end else begin
   pS:=pos(SD,Str);
   if (pS<pC) and (pS<>0) then begin
    // String
    Result:=Result+copy(Str,1,pS);
    Delete(Str,1,pS);
    pS:=pos(SD,Str);
    if pS>0 then begin
     Result:=Result+copy(Str,1,pS);
     Delete(Str,1,pS);
    end else begin
     raise Exception.Create('Unterminated string');
    end;
   end else begin
    // Comment
    Result:=Result+copy(Str,1,pC-1);
    Delete(Str,1,pC);
    pC:=pos('}',Str);
    if pC>0 then begin
     Delete(Str,1,pC);
    end else begin
     raise Exception.Create('Unexpected end of content in comment');
    end;
   end;
  end;
 end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

function EntferneKommentar(s: String): String;
var
  cnt, i, j       : LongWord;
  NichtImKommentar: Boolean;
begin
  if s = '' then Exit;
  i := 1; cnt := 0;
  NichtImKommentar := True;
  while i < Length(s) do begin
    if NichtImKommentar then
      NichtImKommentar := s[i] <> #39  // Hochkomma
    else
    if not NichtImKommentar then
      NichtImKommentar := s[i] = #39;

    if NichtImKommentar and (s[i] = '{') then begin
      j := i; inc(cnt);
      while (j < Length(s)) and (cnt > 0) do begin
        inc(j);
        if s[j] = '{' then inc(cnt) else
        if s[j] = '}' then dec(cnt)
      end;
      if s[j] <> '}' then
        raise Exception.Create('Abschliessende Klammer fehlt.');
      Delete(s, i, j - i + 1)
    end;
    inc(i)
  end;
  Result := s
end;