[zip000]

Код:

type
  TPosition = record
    X, Y : Integer;
  end;
  PPosition = ^TPosition; // Так задается тип указателя на запись (record)
................
var
  pos1 : TPosition;
  pos2 : TPosition;
  Ppos : PPosition;
begin
  pos1.X := 10;
  pos1.Y := 20;
  Ppos := @pos1; // Переменная Ppos будет указывать на pos1
  pos2.X := Ppos^.X; // В pos2.X будет 10
  pos2.Y := Ppos^.Y; // В pos2.Y будет 20
end;