TGrid и TStringGrid в обезьяне

procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
  for i := 0 to 9 do
  begin
    (StringColumn1.CellControlByRow(i) as TTextCell).Text := IntToStr(i);
 
    // Получать битмап можно откуда угодно
    (ImageColumn1.CellControlByRow(i) as TImageCell).Bitmap.Assign(Image1.Bitmap);
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Grid1.rowCount := 10;
end;

TForm1 = class(TForm)
  Grid1: TGrid;
  Column1: TColumn;
  CheckColumn1: TCheckColumn;
  StringColumn1: TStringColumn;
...
  procedure Button2Click(Sender: TObject);
  procedure Grid1SetValue(Sender: TObject; const Col, Row: Integer; const Value: TValue);
  procedure Grid1GetValue(Sender: TObject; const Col, Row: Integer; var Value: TValue);
private
  A: array of TValue;
public
  constructor Create(AOwner: TComponent); override;
end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.fmx}
 
constructor TForm1.Create(AOwner: TComponent);
begin
  inherited;
  SetLength(A, Grid1.RowCount);
end;
 
procedure TForm1.Grid1GetValue(Sender: TObject; const Col, Row: Integer; var Value: TValue);
begin
  // Gets the value from a cell in the first column
  if Col = 0 then
    Value := A[Row];
end;
 
procedure TForm1.Grid1SetValue(Sender: TObject; const Col, Row: Integer; const Value: TValue);
begin
  // Sets the value for a cell in the first column
  if Col = 0 then
    A[Row] := Value;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  // Change values in the data array
  A[0] := 'Ok';
  A[1] := True;
  A[2] := 1234;
  A[3] := Pi;
  // Updates data in the grid cells
  Grid1.UpdateColumns;
end;

  mainEmployeeTable.RowCount:= mainEmployeeTable.RowCount + 1;