Delphi 2009: Tiburon со слов очевидцев

type
// описание метода
TProc = reference to procedure(x: Integer);

procedure Call(const proc: TProc);
begin
proc(42);
end;

var
proc: TProc;
begin
// anonymous method
proc := procedure(a: Integer)
begin
Writeln(a);
end;

Call(proc);
readln
end.

TList<T> = class
private
FItems: array of T;
FCount: Integer;
procedure Grow(ACapacity: Integer);
function GetItem(AIndex: Integer): T;
procedure SetItem(AIndex: Integer; AValue: T);
public
procedure Add(const AItem: T);
procedure AddRange(const AItems: array of T);
procedure RemoveAt(AIndex: Integer);
procedure Clear;
property Item[AIndex: Integer]: T
read GetItem write SetItem; default;
property Count: Integer read FCount;
end;

var
ilist: TList<Integer>;
slist: TList<String>;

procedure PrintListInteger;
var
i: Integer;
begin
for i := 0 to ilist.Count - 1 do
Write(ilist[i], ' ');
Writeln;
end;

procedure PrintListString;
var
i: Integer;
begin
for i := 0 to slist.Count - 1 do
Write(slist[i], ' ');
Writeln;
end;

begin
ilist := TList.Create;
try
ilist.AddRange([1, 2, 3]); // ['1', 'second', 'third']);
PrintListInteger;
ilist.RemoveAt(1);
PrintListInteger;
ilist.Clear;
PrintListInteger;
finally
ilist.Free;
end;
slist := TList.Create;
try
slist.AddRange(['one', 'two', 'three']); // ['first', 'second', 'third']);
PrintListString;
slist.RemoveAt(1);
PrintListString;
slist.Clear;
PrintListString;
finally
slist.Free;
end;
Readln;
end.

function DoSomething(aInteger: integer): string;
begin
if aInteger < 0 then
begin
Exit(‘Negative’);
end;
Result := ‘Positive’;
end;

function DoSomething(aInteger: integer): string;
begin
if aInteger < 0 then
begin
Result := ‘Negative’;
Exit;
end;
Result := ‘Positive’;
end;