Восстановить соединение с БД PostgreSQL (Lazarus)

[san7667]

Добрый день!
Подскажите пожалуйста, каким образом (возможно ли вообще) восстановить соединение после обрыва связи с базой
пытаюсь банально отключить и включить компонент - PQConnection1

PQConnection1.Connected:=False;
PQConnection1.Connected:=True;

Но это не работает (ошибка на скриншоте)

[sts]

исходники не смотрел
сходу возникает подозрение что указанный код вызывается не в том месте, например в какомнибудь OnError а надо за его пределами

[san7667]

исходники не смотрел
сходу возникает подозрение что указанный код вызывается не в том месте, например в какомнибудь OnError а надо за его пределами

Отключаю принудительно транзакцию, иду в прогу, вызываю процедурку connectDB, типа заново подключиться и хренасдва...

procedure TForm1.ConnectDB;
begin
TRY
if dmbase.PQConnection1.Connected=True then dmbase.PQConnection1.Connected:=False;
dmbase.PQConnection1.HostName:='192.168.3.18';
dmbase.PQConnection1.UserName:='postgres';
dmbase.PQConnection1.Password:='masterkey';
dmbase.PQConnection1.DatabaseName:='phone';
dmbase.PQConnection1.Transaction:=dmbase.SQLTransaction1;
dmbase.SQLTransaction1.DataBase:=dmbase.PQConnection1;
dmbase.PQConnection1.Connected:=True;
dmbase.SQLTransaction1.Active:=True;
EXCEPT
on E:EPQDatabaseError do
begin
ShowMessage(E.Message+#13+E.SQLSTATE);
end;
END;
end;

[delphius]

типа заново подключиться и хренасдва

Все предыдущие транзакции, запросы и датасеты, связанные с соединением закрыты?