1:
2:

var
  zeiger: ^TDaten;					

1:

New(Zeiger);					

1:
2:
3:
4:
5:
6:
7:
8:

var
 zeiger : ^Integer;

begin
  new(zeiger);
  zeiger^ := 5;
  ShowMessage(IntToStr(zeiger^));
  ..					

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

var
  daten: TMeineDaten;
  zeiger: ^TMeineDaten;
begin
  daten := TMeineDaten.Create;

  zeiger := @daten;   // zeiger zeigt jetzt auf daten					

1:
2:
3:
4:
5:
6:
7:
8:

begin

Zeiger := @04110BA4;
ShowMessage(IntToStr(Zeiger^));
Dispose(Zeiger);


end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

var
  str: String;

procedure TForm1.Button1Click(Sender: TObject);
var
 zeiger : ^String;

begin
  zeiger := Pointer(StrToInt(edit1.text));  // Zeiger zeigt jetzt auf die Adresse die in edit1 eingegeben wurde
  caption := zeiger^;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  edit1.Text := IntToStr(Integer(@str));  // edit1 zeigt die Adresse von str an
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  str := 'Hallo';
end;					

1:

 str := 'Hallo'					

1:

Zeiger := nil; // not in List					

1:

Zeiger := $00000000;					

1:

Zeiger := $04110BA4					

1:

Zeiger := Pointer($04110BA4);					

1:

PInteger(Zeiger)^ := 5;					

1:
2:
3:
4:
5:

  TPerson = packed record
    name: String[20];
    alter: byte;
  end;
  PPerson = ^TPerson;					

1:
2:
3:
4:
5:

  var myPerson = PPerson;
  begin
    myPerson := Pointer($00401000);
    myPerson.Name := 'Peter';  // setzen
    if myPerson.Alter = 60 then  // abfragen					

1:
2:
3:
4:
5:

  var myPerson = PPerson;
  begin
    myPerson := Pointer($00401000);
    myPerson^.Name := 'Peter';  // setzen
    if myPerson^.Alter = 60 then  // abfragen