[dec]

Hola,

No sé si te refieres a algo así:

Código Delphi [-]
var
  FProcedimiento: procedure(s: string);

procedure UnProcedimiento(saludo: string);
begin
  ShowMessage(saludo);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FProcedimiento := UnProcedimiento;
  FProcedimiento('¡Hola mundo!');
end;