楼主啊，说话咋就说不明白捏？是给单元格加边框，还是增加一个 Line 对象啊？
1、如果是加边框，easy 得很：
var
clr: COLORREF;
begin
clr := RGB(255, 0, 0);
F1Book1.SetSelection(1, 1, 4, 4);
F1Book1.SetBorder(-1, 1, 1, 1, 1, 1, 0, clr, clr, clr, clr);
end;
2、如果是画条直线（Line 对象），也很简单：
var
pID: Integer;
begin
F1Book1.ObjNew(F1ObjLine, 0, 0, 4, 4, pID);
end;
