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

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ToolWin, ComCtrls, ExtCtrls, StdCtrls, Buttons, checklst,
//ein Kommentar
  commctrl, FileCtrl, ShlObj, shellapi, OleCtrls, SHDocVw_TLB, ActiveX,
  Calendar, Mask, ColorGrd, wininet;
//**********************************************
uses
  WinProcs,        { Imports RGB }
  WinTypes,        { Imports TBitmapInfoHeader }
{ declared these Windows units before Graphics so
  TBitmap from Graphics is used }
  SysUtils;        { Imports UpperCase }
//**********************************************
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};					

1:

var s : String;					

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

  if EditTitel.Color = $009DA6F7 then inc(i);
  dec(i);
  if bl = False then
    bl := True;
  MenueProjektSpeichernClick(self);
  break;					

1:
2:
3:

// Test { A
B
}					

1:
2:
3:
4:

  {  // Kommentar  }
  {  (* Kommentar *)  }
  (*  // Kommentar  *)
  (*  { Kommentar }  *)					

1:

  (*  {  { Kommentar }  }  *)					

1:
2:
3:

  {  { Kommentar }  }
  (*  (* Kommentar *)  *)
  (*  {  (* Kommentar *)  }  *)					

1:

property test: boolean read ftest write ftest;					

1:

test: boolean read ftest write ftest;