Speicheradresse eine Pointers, Objektes etc. ausgeben lassen

[Luckie]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
begin
  sl := TstringList.Create;
  try
    ShowMessage(IntToStr(Integer(@sl)));
  finally
    FreeAndNil(sl);
  end;
end;

Geht wunderbar. Allerdings erhalte ich ohne @ einen anderen Wert.