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:

unit Unit1;

{alles was über dem Interface steht wird als beschreibung für die Unit angesehen}

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

const
  TEST_CONST = 'test'; //Kommentare für Konstanten stehen immer dahinter

var
  //Kommentar Test1
  //|    Kommentar Test2
  //|    |      Kommentar Test3
  Test1, Test2, Test3: Integer;  //(' ' und '|' werden automatisch entfent) dieser kommentar hat keine Bedeutung

type
  //Kommentar der Klasse
  TForm1 = class(TForm)
  private
    //Kommentar Test1
    //|    Kommentar Test2
    //|    |      Kommentar Test3
    Test1, Test2, Test3: Integer;
    property Test: Integer read Test1; //Kommentar der Eigenschaft
    procedure TEST; //Kommentar der Prozedure/Funktion
  end;

implementation