[ecfisa]

Estoy capturando la direccion en memoria del proceso1?
si es asi como imprimo la direccion, en un tlabel o un ShowMessage?

Hola gersojn.

En la asignación: puntero:=proceso1; estas capturando la dirección del procedimiento proceso1, en la variable puntero .

Un ejemplo para mostrar la dirección:

Código Delphi [-]
type
  TProcedurePtr = procedure;

procedure proceso1;
begin
//...
end;

procedure proceso2;
begin
//...
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  p1,p2: TProcedurePtr;
begin
  p1:= @proceso1;
  p2:= @proceso2;
  ShowMessage(Format('%p %p',[@p1, @p2]));
  // O en decimal
  ShowMessage(Format('%d %d',[ULong(@p1),ULong(@p2)]));
end;

Saludos.

Casi al mismo tiempo