uses AdoConEd;//Kullanılan "procedure" bu birimde tanımlı...
procedure TADODBTest.Button1Click(Sender: TObject);
begin
Connection.Close;//Bağlantı nesnesi..
if EditConnectionString(Connection) then
Label1.Caption := Connection.ConnectionString;
end;