TConnLostCause is underscore in red so probably a uses clause is missing,
witch one ?
Code: Select all
procedure TDmGest.adGestConnectionLost(Sender: TObject; Component: TComponent;
ConnLostCause: TConnLostCause; var RetryMode: TRetryMode);
begin
end;