Problem mit Code-Folding

[gfjs]

Guten Abend, allerseits.

Mein Quelltext schaut zur Zeit so aus:

Delphi-Quellcode:

constructor TWinForm.Create;
begin
  inherited Create;
  //
  // Erforderlich für die Unterstützung des Windows Forms-Designers
  //
  InitializeComponent;
  //
  // TODO: Fügen Sie nach dem Aufruf von InitializeComponent Konstruktorcode hinzu.
  //
  RichTextBox1.
end;

procedure TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);
var
  sReader : StreamReader;
  iSize : Integer;
begin
  sReader := system.IO.&File.OpenText('c:\RichEditText.txt');
  RichTextBox1.rtf := sReader.ReadToEnd;
  sReader.Close;
end;

Und wenn ich das + beim construction anklicke, schaut er so aus:

Delphi-Quellcode:

constructor TWinForm.Create; ...
var
  sReader : StreamReader;
  iSize : Integer;
begin
  sReader := system.IO.&File.OpenText('c:\RichEditText.txt');
  RichTextBox1.rtf := sReader.ReadToEnd;
  sReader.Close;
end;

Das kann doch eigentlich nicht vernünftig sein, dass der Prozedurkopf von Button1Click verschwindet?! Ich hab schon versucht, zwischen den constructor und Button1Click eine Kommentarzeile einzufügen, aber das nützt auch nichts.

Hat Ihr das gleiche Problem?

mfg gfjs