获取ADO表的原始表名和字段名称

uses
 ADOInt;
SQL: Select ID as XXX from TestTable
var
 F: Field;
 I: Integer;
begin
 F := ADOQuery1.Recordset.Fields[0];
 for I := 0 to F.Properties.Count - 1 do
 try
   Memo1.Lines.Add(F.Properties[I].Name + ': ' + F.Properties[I].Value);
 except
 end;
end;