在TdataForm = class(TDataModule) 如何知道建立了几个ADOConnection(100)

function getADOConnectionCount(): Integer;var  i : integer;begin  result := 0;  for i := 0 to dataform1.components.count - 1 do  begin    if dataform1.components[i] is TADOConnection then    Inc(result);  end;end;

procedure setADOConnection();var  i : integer;begin  for i := 0 to dataform1.components.count - 1 do  begin    if dataform1.components[i] is TADOConnection then begin      TADOConnection(dataform1.components[i]).Provider:=s;      TADOConnection(dataform1.components[i]).ConnectionString:=t;    end;  end;end;