Du das Verschlucken der
Exception nimmst du dir jede Möglichkeit die Fehlermeldung zu Gesicht zu bekommen:
Delphi-Quellcode:
OpenDatabase:=true;
try
ADOConnection1.Open;
except
OpenDatabase:=false;
// niemand wird je erfahren was in der Message der Exception gestanden hat
end;
Lass das try...except einfach weg.