Var Comment: TXLSComment;
begin
  ...
  With Workbook.Sheets[1] do begin
    Comment := Range['B2', 'B2'].Comment;
    if Assigned(Comment) then Comment.Shape.Line.Weight := 4;
  end;
  ...
end;