[ecfisa]

Hola usuario87.

Primeramente te pido disculpas por no haberlo advertido... Muy bienvenido a los foros del Club Delphi.

esea nada mas con poner delante de la variable o funcion el "@" (arroba) ¿me devuelve la direccion de memoria?, bien, gracias.

Si así es. También existe la función Addr que es equivalente al operador "@".

Te pongo otro ejemplo:

Código Delphi [-]
...
function prueba: Integer;
begin
  //
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  dw: DWORD;
  st: string;
  p1,p2,p3: Pointer;
begin
  p1:= Addr(prueba);
  p2:= @dw;
  p3:= Addr(st);
  Label1.Caption:= Format('prueba: %p',[p1]);
  Label2.Caption:= Format('dw: %p',[p2]);
  Label3.Caption:= 'st: '+IntToHex(Integer(p3), 8); // (*)
end;

(*) Mostrado con la función IntToHex, sugerido anteriormente por escafandra en este post

Un saludo.