PaintCross

procedure PaintCross(

  Canvas: TCanvas;

  XLeft: Integer;

  YUp: Integer;

  XRight: Integer;

  YLow: Integer;

  CrossX1: Integer;

  CrossX2: Integer;

  CrossY1: Integer;

  CrossY2: Integer

);