Как через TMemo записывать данные в поля таблиц

procedure TForm2.Button2Click(Sender: TObject);
begin
  if Form1.Table1.Locate('Name',Edit1.Text,[]) = true then exit;    // проверяю наличие книги если есть выходим 
  Form1.Table1.Append;
                                                                                        // формирую поля записи
  Form1.Table1.FieldByName('Name').AsString:=Edit1.Text;          // Название книги
  Form1.Table1.FieldByName('Number').AsString:=Edit2.Text;       // Количество книг
  Form1.Table1.FieldByName('Note').AsString:= ??????;               // Как заполнить поле Note Вводя строку в Memo2?
  Form1.Table1.Post;
  for i:=0 to Memo1.Lines.Count-1 do
   begin
    if Form1.Table3.Locate('Name', ------ ) = false then    // проверить наличие автора в таблице Writers если автора нет, 
                                              //то добавит новую запись (опять же не знаю как в Memo проверять и записывать)
      Form1.Table3.Append;
      ...................
      ??????
      ...................
      Form1.Table3.Post;
 
    
end;

var S: TStream;

S := TMemoryStream.Create; //создали поток в памяти
Memo1.Lines.SaveToStream(S); //сохранили содержимое Memo1 в потоке S
S.Seek(0,0);//делаю всегда на всякий пожарный, где-то без этого обжегся, деталей не помню
try
  Form1.Table1.FieldByName('Note').LoadFromStream(S);// загрузили
finally
  S.Free;//освободили поток
end;

Form1.Tabel1Note.LoadFromStream(S);

Form1.Table1.FieldByName('Note').AsString

Form1.Table1.FieldByName('Note').LoadFromStream(S);

if Form1.Table1.FieldByName('Note') is TMemoField then
  with Form1.Table1.FieldByName('Note')  as TMemoField do
  LoadFromStream(S);

procedure TForm1.Button5Click(Sender: TObject);
begin
  memo1.Lines.Clear;
  While not(Table1.Eof) do
  begin
   memo1.Lines.Add(Table1.FieldByName('Note').AsString);
   Table1.Next;
  end;
end;