Client:

var
   session: TDBISAMSession;
   database: TDBISAMDatabase;
   qry: TDBISAMQuery;

begin
   session := TDBISAMSession.Create(nil);
   session.AutoSessionName := True;
   session.SessionType := stRemote;        // set for c/server.
   session.RemoteHost := 'localhost';
   session.RemoteUser := 'Admin';
   session.RemotePassword := 'DBAdmin';
   session.RemoteCompression := 6;  // Required to speed up connections over
                                   // Internet. Hopefully not too slow for local
                                   // connections.  Detection of slow connection
                                   // would be better.
   session.Active := True;

   database := TDBISAMDatabase.Create(nil);
   database.SessionName := session.SessionName;
   database.RemoteDatabase := 'Sample';
   database.DatabaseName := 'Sample';
   database.Connected := True;

   qry := TDBISAMQuery.Create(nil);
   qry.SessionName := session.SessionName;
   qry.DatabaseName := database.DatabaseName;
   qry.SQL.Add('create table "\Memory\Key_Purpose"(i integer);');
   qry.ExecSQL;

   session.RemoteParams.Clear;
   session.CallRemoteProcedure('Test');

   qry.Destroy;
   database.Destroy;
   session.Destroy;
end.

Server:

type
   TServerHost = class
   private
      procedure ServerProcedure(Sender: TObject;
           ServerSession: TDBISAMSession; const ProcedureName: String);
   end;

procedure TServerHost.ServerProcedure(Sender: TObject;
  ServerSession: TDBISAMSession; const ProcedureName: String);
var
   t: TDBISAMTable;
   db: TDBISAMDatabase;
begin
   db := TDBISAMDatabase.Create(nil);
   db.SessionName := ServerSession.SessionName;
   db.RemoteDatabase := 'Sample';
   db.DatabaseName := 'Sample';
   db.Connected := True;

   t := TDBISAMTable.Create(nil);
   t.SessionName := db.SessionName;
   t.DatabaseName := 'Memory';
   t.TableName := 'Key_Purpose';
   t.Open;
   t.Free;

   db.Free;
end;

var
   host: TServerHost;

begin
   DeleteFile('dbsrvr.scf');
   host := TServerHost.Create;
   Engine.EngineType := etServer;
   Engine.OnServerProcedure := host.ServerProcedure;
   Engine.Active := True;
   Engine.AddServerProcedure('Test', '');
   Engine.AddServerDatabase('Sample', '', 'c:\Artful Ledgers\Sample');
   Application.CreateForm(TForm1, Form1);
   Application.Run;
end.