Si colocas un ADOTable en un formulario, y haces el Open, puedes programar algo así:
Código Delphi
[-]
for i := 0 to (ADOTable1.FieldDefList.Count - 1) do begin
Memo1.Lines.Add(ADOTable1.FieldDefList[i].Name);
Memo1.Lines.Add(' ' + IntToStr(Ord(ADOTable1.FieldDefList[i].DataType)));
Memo1.Lines.Add(' ' + IntToStr(ADOTable1.FieldDefList[i].Size));
end;