ADOTable1.First;
  while not ADOTable1.Eof do
  begin
    if ADOTable1.FieldByName('title').Value = 'haven' then
    begin
      AdoTable1.Edit;
      ADOTable1.FieldByName('content').Value := Memo1.Text;
      ADOTable1.Post;
      break;
    end;
    ADOTable1.Next;
  end;