Typically, adding text to a notebook controls the note at the bottom of the pasted text. To prevent this, call Lines.BeginUpdate before adding text and call EndUpdate after this:
procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.BeginUpdate; try Memo1.Lines.Add('...'); Memo1.Lines.Add('...'); ... finally Memo1.Lines.EndUpdate; end; end;
source share