TMouches

type TMouches = record

  Cnt: Integer;

  XYs: array [0..cjMouchMax-1] of TfXY;

  sLen: Single;

  sAngle: Single;

  sPt: TfXY;

  sPt1: TfXY;

  sPt2: TfXY;

  sCount: Integer;

  Mouch: TMouch;

end;