"Codice .. parla per me"
codice:
program test;

type

	// un puntatore a funzione che non vuole argomenti e ritorna una stringa
	TFunctionPtr = function : string;

	// una struttura in cui memorizzo il nome e la sua funzione associate
	TFRec = record
		nome : string;
		f : TFunctionPtr;
	end;

// due funzioni
function f1 : string;
begin
	f1 := 'sono la funzione 1';
end;

function f2 : string;
begin
	f2 := 'sono la funzione 2';
end;

var
	f : array [1 .. 2] of TFRec ;
	i : integer;
begin

	f[1].nome := 'uno';
	f[1].f := @f1;
	f[2].nome := 'due';
	f[2].f := @f2;

	for i := 1 to 2 do
	begin
		WriteLn(f[i].nome);
		WriteLn(f[i].f);
	end;

end.