TReconnectEvent = procedure (Sender: TObject; var Continue: Boolean; var StopAsking: Boolean) of object