with book.Sheets[1] do begin
  with Cells[5, 5].AddComment('Comment text') do begin
    Shape.Fill.Visible := true;
    Shape.Fill.Solid;
    Shape.Fill.ForeColor.RGB := $00E000;
  end;
end;