[PVD]

высянил причину ему не нравилась запись в записи

type
FPoint = record
  X, Y : Integer;
  End;
FObject = record
  Align,Kind : Integer;
  Size,Pos : FPoint; //<<<<<<<<<<<<<<
  Created : Boolean;
  Text:String;
  End;