A:  Use a TStringList as an intermediate step.

procedure TForm1.Button1Click(Sender: TObject);
var
  list: TStringList;
begin
  list := TStringList.create;
  try
    list.assign(table1.fieldByName('notes'));
    listbox1.items.assign(list);
  finally
    list.free;
  end;
end;

You can also use table1.fieldByName('notes').GetData(buffer), but that is extra work.  This is easier.