[M.A.D.M.A.N.]

Я бы начал так:

Код:

TCardanGrille = array of packed record
  X, Y, Length: Integer;
end;