[[BlueSteel]]

hola.. mira en una parte pude hacer que una celda (pero era de un DBGrid) me diera más de 1 línea en el caso de que sea un campo de tipo memo... el código es el siguiente

Código Delphi [-]
procedure TOrdenes.DBGrid2DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
  Str: string;
begin
  if (Column.Index = 1) then begin
    if Column.Field is TMemoField then begin
      Str := TBlobField(Column.Field).AsString;
      while Pos(#13, Str) > 0 do
        Str[Pos(#13, Str)] := ' ';
      while Pos(#10, Str) > 0 do
        Str[Pos(#10, Str)] := ' ';
      DbGrid2.Canvas.FillRect(Rect);
      DbGrid2.Canvas.TextOut(Rect.Left, Rect.Top, Str);
    end;
  end;
  // if (Column.Index = 4) then  DBGrid2.Canvas.TextOut(Rect.Left, Rect.Top, FormatFloat('#',IBQ_Items['DOr_Cantidad']*IBQ_Items['DOr_Valor_Unitario']));
end;

espero que te sirva