procedure TForm1.MtxDatasetVecColumns0AfterReadDataset(Sender: TObject); begin ShowMessage('Loaded first field'); end; procedure TForm1.MtxDatasetVecColumns1AfterReadDataset(Sender: TObject); begin ShowMessage('Read second field'); end; procedure TForm1.FormCreate(Sender: TObject); var i: Integer; begin MtxDataSet.Dataset := Table1; for i := 0 to MtxDataset.VecColumns.Count - 1 do MtxDataset.VecColumns[i].ReadDataset; end;