1:
2:
3:
4:
5:

var
a:integer;
begin
  pointer(a) :=   //??
end					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var:
a:pointer;  // Pointer auf irgendwas kann nicht dereferenziert werden. Vorher in einen Typisierten Pointer wandeln.
b:^integer; // Pointer auf einen Integerwert
c:integer;
begin
a := @c; // Der Pointer A zeigt auf die Addresse der Variable C
a := ADDR(c); // Der Pointer A zeigt auf die Addresse der Variable C
b := ptr($00401002); // Der Pointer B zeigt auf die Speicheraddresse $00401002

// mit b^ kann der Pointer jetzt dereferenziert werden
showmessage(inttohex(b^, 8);

end;					

1:
2:
3:
4:
5:
6:

var
a:pointer
b:^integer
begin
b := a; // ??
end;					

1:
2:
3:
4:

type pInteger = ^Integer; // gibt es vermutlich schon, aber egal

...
c := pInteger(a)^;