Поля DBGrid и Memo

Как из Memo-поля выбрать данные для DBGrid?

В обработчик события GetText TMemoField поместите следующую строку:

Text := GrabMemoAsString(TMemoField(Sender));

и поместите следующую функцию так, чтобы к ней можно было свободно обратиться:

function GrabMemoAsString(TheField: TMemoField): String;
begin
  if TheField.IsNull then Result := ''
  else with TBlobStream.Create(TheField, bmRead) do begin
    if Size >= 255 then begin
      SetLength(Result, 255);
      Read(Result, 255);
    end else begin
      SetLength(Result, Size);
      Read(Result, Size);
    end;
    Free;
    while Pos(#10, Result) > 0 do Result[Pos(#10, Result)] := ' ';
    while Pos(#13, Result) > 0 do Result[Pos(#13, Result)] := ' ';
  end;
end;