como mostrar un string de 500 caracteres en una grilla

[afarenas]

Tengo el siguiente problema:
Muestro un campo string de longitud 500 en una rejilla y me aparece (memo) y no me muestra su contenido, como se puede solucionar esto, la base de datos es interbase gracias.

[Casimiro Noteví]

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;

[afarenas]

Gracias me ha funcionado perfectamente.