var
  ATerminalServer: TJwTerminalServer;
  i: Integer;
begin
  // Create Terminal Server instance and allocate memory for it
  ATerminalServer := TjwTerminalServer.Create;

  // Set servername (only in case of remote server)
  ATerminalServer.Server := 'TS001';

  // Remember that EnumerateProcesses will automatically connect to the
  // Terminal Server for you. The connect function raises an Exception
  // if the connection attempt was unsuccessfull, so better use try..except
  try
    ATerminalServer.EnumerateProcesses;

    // Now loop through the list
    for i := 0 to ATerminalServer.Processes.Count - 1 do
    begin
      Memo1.Lines.Add(ATerminalServer.Processes[i].ProcessName);
    end;

  except
    on E : EJwsclEnumerateProcessFailed do
    begin
    end;

    on E: EJwsclWinCallFailedException do
    begin
      // Handle Exception here
    end;
  end;

  // Free Memory
  ATerminalServer.Free;
end;