1:
2:
3:
4:
5:

var
  iCount: Integer;
  sLine: String;
  bFlag: Boolean;
  fPrice: double;                    

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

program HelloWorld;

uses
   Dialogs;
var
   MyString: string;
   MyInteger: integer;

begin

   procedure SayHelloWorld;
   begin
      if MyInteger = 2 then
         ShowMessage('Hallo Welt!');

      if MyString = "Miesepeter" then
      begin
         MyInteger := 456;
         ShowMessage('Hello World!');
      end;
   end;

end.                    

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

program HelloWorld; 

uses 
   Dialogs; 

var 
   MyString: String; //String großgeschrieben!
   MyInteger: Integer; //Integer großgeschrieben

procedure SayHelloWorld; 
begin 
  if MyInteger=2 then //keine leerzeichen vor/nach dem =
    ShowMessage('Hallo Welt!'); 
  if MyString='Miesepeter' then begin  //begin in die selbe zeile
    MyInteger:=456; //kein Leerzeichen vor/nach :=
    ShowMessage('Hello World!'); 
  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:

program HelloWorld; 

uses 
   Dialogs; 

var 
   MyString: String; //String großgeschrieben!
   MyInteger: Integer; //Integer großgeschrieben

procedure SayHelloWorld; 
begin 
// immer jeweils um 2 Leerzeichen einrücken
  if MyInteger = 2 then // leerzeichen vor/nach dem =
    ShowMessage('Hallo Welt!'); 
  if MyString = 'Miesepeter' then // Variablennamen immer so wie deklariert
  begin  // begin nie in die selbe zeile
    MyInteger := 456; // kein Leerzeichen vor/nach :=
    ShowMessage('Hello World!'); 
  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:
31:
32:

program HelloWorld;  

uses Dialogs;  

var  
  myString: string; //vorne klein, mitte gross 
  myInteger: integer; // auf die schreibweise der typen lege ich keine besonderen wert -> wenn ich drann denke klein!
                         // PS: wohlgemerkt bei den standart typen, nicht bei meinen eigenen

procedure sayHelloWorld;  
begin  
  if myInteger = 2 
  then showMessage('Hallo Welt 2!')    // meine komische angewohnheit
  else showMessage('Hallo Welt not 2!'); // bei einzeiligen then else ausdrücken 

  if myString = 'wugguWuggu' then 
  begin  
    myInteger := 456; 
    showMessage('Hello Wuggu!');  
  end;  

  case myInteger of
    miNone: nothing;
    miRun: begin
             something;
             something;
           end;
    else showMessage('hello else');
  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:
31:
32:
33:
34:
35:
36:
37:
38:

program Project2;

{$APPTYPE CONSOLE}

uses Dialogs;

var
  myString: string; //vorne klein, mitte gross
  myInteger: integer;
    // auf die schreibweise der typen lege ich keine besonderen wert -> wenn ich drann denke klein!
                         // PS: wohlgemerkt bei den standart typen, nicht bei meinen eigenen

procedure sayHelloWorld;
begin
  if myInteger = 2 then
    showMessage('Hallo Welt 2!') // meine komische angewohnheit
  else
    showMessage('Hallo Welt not 2!'); // bei einzeiligen then else ausdrücken

  if myString = 'wugguWuggu' then
  begin
    myInteger := 456;
    showMessage('Hello Wuggu!');
  end;

  case myInteger of
    miNone: nothing;
    miRun:
      begin
        something;
        something;
      end;
  else
    showMessage('hello else');
  end;
end;

end.                    

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

procedure TForm1.Memo1Change(Sender: TObject);
begin
 if Edit1.Text = 'Demo' then
  begin
   Button1.Enabled := false;
   demomode := true;
   id := id * ( 25 - hdfile );      // Das ist ein Kommentar   
  end
 else
  begin
   {Nothing}
  end
end;