procedure TfmMain.btBorderClick(Sender:TObject);
begin
  OC.Sheets[0].CellRangeByName['A1:C5'].TableBorder.Left:=BLine(clRed,0,20,50);
  OC.Sheets[0].CellRangeByName['A1:C5'].TableBorder.Right:=BLine(clGreen,0,20,50);
  OC.Sheets[0].CellRangeByName['A1:C5'].TableBorder.Top:=BLine(clBlue,0,20,50);
  OC.Sheets[0].CellRangeByName['A1:C5'].TableBorder.Bottom:=BLine(clBlack,0,20,50);
  OC.Sheets[0].CellRangeByName['A1:C5'].TableBorder.Vertical:=BLine(clBlack,0,40,80);
  OC.Sheets[0].CellRangeByName['A1:C5'].TableBorder.Horizontal:=BLine(clRed,0,40,80);
end;