Tenes que usar el evento
OnGetValue
Ejemplo con un TGrid con dos columnas de tipo
TStringColumn creadas en tiempo de diseño
Código Delphi
[-]
type
TForm1 = class(TForm)
Grid1: TGrid;
StringColumn1: TStringColumn;
StringColumn2: TStringColumn;
procedure FormCreate(Sender: TObject);
procedure Grid1GetValue(Sender: TObject; const ACol, ARow: Integer; var Value: TValue);
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
const
Datos: array[0..1, 0..4] of string =
(('A', 'B', 'C', 'D', 'E'),
('Uno', 'Dos', 'Tres', 'Cuatro', 'Cinco'));
procedure TForm1.FormCreate(Sender: TObject);
begin
Grid1.RowCount := 5;
end;
procedure TForm1.Grid1GetValue(Sender: TObject; const ACol, ARow: Integer; var Value: TValue);
begin
Value := TValue.From<string>(Datos[ACol, ARow]);
end;