procedure TForm1.Button1Click(Sender: TObject);
begin
  NetworkErr := false;
  DBISAMSession1.RemoteTimeout := 30;
  Table1.Active := True;
  showmessage('Connected');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  DBISAMSession1.Active := false;
  showmessage('Disconnected');
end;

procedure TForm1.ApplicationEvents1Exception(Sender: TObject;
  E: Exception);
begin
  if NetworkErr then
    Exit;

  if E is EDBISAMEngineError then
    with E as EDBISAMEngineError do
      NetworkErr :=
        (ErrorCode = DBISAM_REMOTECOMMLOST) or
        (ErrorCode = DBISAM_REMOTECONNECT);
  if NetworkErr then begin
    application.ProcessMessages;
    showmessage('Network error. Disconnecting...');
    try
      screen.Cursor := crHourGlass;
      Button2Click(nil);
    finally
      screen.Cursor := crDefault;
    end;
  end else
    with Application do
      MessageBox(PChar(E.Message),PChar(Title),
                 mb_Ok or mb_IconExclamation);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Table1.First;
  showmessage('done');
end;

procedure TForm1.DBISAMSession1RemoteReconnect(Sender: TObject;
  var Continue: Boolean);
begin
  if networkErr then
    Continue := False;
end;

procedure TForm1.DBISAMSession1RemoteTimeout(Sender: TObject;
  var StayConnected: Boolean);
begin
  if networkErr then
    StayConnected := False;
end;