With Workbook.Sheets[1].Range['A1', 'A1'] do begin AddComment; Comment.Text := 'Comment for cell A1'; end;