var i: Integer; p: TPoint; begin i.Algo:= 0; //incorrecto, aquí te salta el error p.X:= 0; //correcto