[Casimiro Notevi]

Prueba esto:

procedure TFmain.dbgListaDrawColumnCell(Sender: TObject; const Rect: TRect;   DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  R : TRect;
begin // exibir campo memo
  R:=Rect;
  Dec(R.Bottom,2);
  if Column.Field = QRfichasTEXTO then
  begin
    if not (gdSelected in State) then
      dbgLista.Canvas.FillRect(Rect);
    DrawText(dbgLista.Canvas.Handle,pchar( QRfichasTEXTO.AsString),
                            length(QRfichasTEXTO.AsString), R, DT_WORDBREAK );
  end;
end;