1:
2:
3:
4:
5:

function Blahana(param1, param2 : integer) : integer;
begin
  function Sonstwas(was, weiss, ich : string) : boolean;
  begin
....                    

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

function Blahana(param1, param2 : integer) : integer;
  function Sonstwas(was, weiss, ich : string) : boolean;
  begin
....
  end { function Sonstwas };

begin
....
end { function Blahana };                    

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

type
      TOuterClass = class
       strict private
          myField: Integer;
 
       public
          type
             TInnerClass = class
              public
                myInnerField: Integer;
                procedure innerProc;
             end;

         procedure outerProc;
       end;                    

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

procedure aussen; 
  function innen :string; 
  var
  x : integer;
  begin
  Result := 'Eine Übersicht der natürlichen Zahlen von 1 bis 10 (sortiert): ');
  for x := 1 to 10 do  Result := Result+inttostr(x)+',');
  end;

begin 
 showmessage(innen);
showmessage('Und weils so schön war, gleich nochmal...');
 showmessage(innen);
end;                    

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

procedure alles;
var
 x : integer;
 temp : string;  // die Variable muss beispielsweise vom Compiler erzeugt werden.....
begin
 temp := 'Eine Übersicht der natürlichen Zahlen von 1 bis 10 (sortiert): ');
  for x := 1 to 10 do temp := temp+inttostr(x)+',');
showmessage(temp);

 temp := 'Eine Übersicht der natürlichen Zahlen von 1 bis 10 (sortiert): ');
  for x := 1 to 10 do temp := temp+inttostr(x)+',');
showmessage(temp);

end;                    

1:
2:

showmessage(temp);
showmessage(temp);