Получение значения поля типа Memo в Edit без использования объекта TDBMemo

  
Поместите, например, компонент Table1 на форму, 
выберите таблицу BIOLIFE.DB
Установите св-во Table1 Active в True.
Поместите на форму компоненты Edit1 и Button1.
Добавьте код в обработчик OnClick для Button1:
 
procedure TForm1.Button1Click(Sender: TObject);
var
  bs : TBlobStream;
  p  : array [0..50] of char;
begin
  FillChar(p, SizeOf(p), #0);
  bs:= TBlobStream.Create(Table1.FieldByName('Notes'), bmRead);
  try
    bs.Read(p,50);
  finally
    bs.Free;
  end;
  Edit1.Text:=StrPas(p);
end;

Используются технологии uCoz