Blob ошибка записи

[MIGUR]

Сообщение от Аватар

var MS: TMemoryStream;
begin
  MS:=TMemoryStream.Create;
  Memo1.Lines.SaveToStream(MS);
  MS.Position:=0;
  db1.IBDataSet4.Edit;
  TBLOBField(db1.IBDataSet4.FieldByName('MSGTEXT')).LoadFromStream(MS);
  db1.IBDataSet4.Post;
  Ms.Free;
end;

Спасибо ! Теперь редактирование происходит но ошибка так и вылазит.
Сейчас установлю ФБ сервер заместо Интербэйса 7.1

[MIGUR]

Всем большое спасибо !
Извиняюсь за тупость, проблема была в том что с FB БД пытался работать на IB7.1, поставил FB 2.1 всё заработало, даже так:

  db1.IBDataSet4.Edit;
  db1.IBDataSet4.FieldByName('MSGTEXT').AsString := memo1.Lines.Text;
  db1.IBDataSet4.Post;