[ecfisa]

Hola usuario87.

Código Delphi [-]
...
implementation
var
  DW: DWORD;
  ST: string;

function MiFuncion: Integer;
begin
  //
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Format('MiFuncion: %p %sDW: %p %sST: %p', [@MiFuncion, #10#13,@DW, #10#13, @ST]));
end;

Saludos.