取得ADO資料表欄位型態和長度之函數撰寫問題

各為前輩：

想請教ADO取得資料表欄位型態和長度的問題，
想撰寫一個函數可以簡單傳回資料表欄位型態和長度
預撰寫的目標是 GetFieldType(連線元件,資料表,欄位名稱,傳回型態type/Size):String
可是我只找到範例利用ComboBox和tfield與DataSource來取得欄位資訊，但是想簡化，不知道要如何
下手，因為若能解決這個問題，對sql查詢字串的判別撰寫與一些元件如DBGRID顯示欄位長度的調整，
一定有很大的助益的，請前輩們提供思路！

procedure GetFieldType(Sender: TObject);
var
i: integer;
s: string;
v: Variant;
keyfield: tfield;

begin
inherited;
with qry1.DataSource do
begin
//先取得所有欄位名稱, 並以;間隔
for i := 0 to (ds1.dataset.FieldCount - 1) do
begin
// s := s ';' dataset.Fields[i].FieldName;
self.ComboBox1.items.Add(ds1.DataSet.Fields[i].FieldName);
end;
end;

keyfield := tfield(TComboBox(SendObject).Items.Objects[TComboBox(SendObject).ItemIndex]);

case keyfield.DataType of
ftstring, ftWideString:
begin
// result := 'String';
result := 1
end;
ftsmallint, ftinteger, ftbcd, ftfloat, ftcurrency:
begin
// result := 'Number';
result := 2;
end;
ftdatetime, ftdate, fttime:
begin
// result := 'Date';
result := 3;
end;
end;

end;

參考如下:

private
{ Private declarations }
function GetFieldType(ds: TDataSet;fn:String;out ft:TFieldType; out fs:Integer):Boolean;

function TForm1.GetFieldType(ds: TDataSet; fn: String; out ft:TFieldType; out fs:Integer):Boolean;
var
f:TField;
begin
f := ds.FindField(fn);
if f = nil then
Result:=False
else
begin
ft:=f.DataType;
fs:=f.Size;
Result:=True;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
FieldType:TFieldType;
FieldSize:Integer;
s:String;
begin
memo1.lines.clear;
if GetFieldType(self.ADOTable1,'商品名稱',FieldType,FieldSize) then
begin
case FieldType of
ftstring, ftWideString:
begin
s:='String';
end;
ftsmallint, ftinteger, ftbcd, ftfloat, ftcurrency:
begin
s:='Number';
end;
ftdatetime, ftdate, fttime:
begin
s:='Date';
end;
else
begin
s:='Others';
end;
end;
memo1.Lines.Add(s #9 IntToStr(FieldSize));
end
else
ShowMessage('找不到欄位[商品名稱]');
end;