数据集返回到数组中

COLOR="#008000">procedure TForm1.Button1Click(Sender: TObject); const
AStr = 'The %s is of the %s category and its length is %f in.';
var
VarArr: Variant;
F: Double;
begin
VarArr := VarArrayCreate([0, 2], varVariant);
VarArr := Table1['Common_Name;Category;Length_In'];
F := VarArr[2];
ShowMessage(Format(AStr, [VarArr[0], VarArr[1], F]));
end;