Die Funktion wird mit
if GetConnectionString(handle,ADOConnection1) then begin
aufgerufen, da musst Du statt ADOConnection1 die von Dir im Programm genutzte TADOConnection übergeben.
Wenn diese tatsächlich undefiniert ist, müsste der Fehler bereits beim Funktionsaufruf passieren.
Es könnte durchaus hilfreich sein, wenn Du mal den Quelltext zeigen könntest, mit dem Du den Aufruf machst, so ist das einfach nur ein Suchen mit Hilfe der