procedure TForm1.DisplayMsg(s: string);
begin
Memo1.Lines.add(s)
end;
procedure TForm1.Button1Click(Sender: TObject);
VAR
PS:Properties;
i,n:integer;
s:string;
begin
ADOConnection1.Open;
ADOCommand1.CommandObject.Set_ActiveConnection(ADOConnection1.ConnectionObject);
ps:=ADOCommand1.CommandObject.Properties;
n:=PS.Count;
for i:= 0 to n-1 do
begin
s:=PS.Item[i].Name+'='+
string(PS.Item[i].Value);
DisplayMsg( s);
end;
end;